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IDENTIFICATION 


POXoCT CODE: 
PRODUCT NAf€: 
DATE: 

NAINTAINEP: 

AUTHOR: 


NAlNOEC-ll-OTTCA-e 

TCI 1 DEVICE SOUTINE FOR NPC 

AFFIl 14 Tb 

SESTETS RELIABILITY 

w, E. HARPER 


COPYRIGHT £C) I ITS. m 

DIGITAL EXI^NT 60RPOftATI0N, Nm), HASS. 




**:rc€C-:i-DTTCA-e Tcii'Tusb device routine for mpg 

OTTCAe.Pii REVISION HISTORY 


44 

4 5 
% 
h? 
48 
45 
SC 
51 
SC 
S3 

C«4 


.S8TTI 
APR 7b 
OEC 75 

DEC 75 

AUG 75 


SEG 0355 


001 

MACY11 27(7321 2H-SEP-75 14:00 PAGE 2 

REVISION HTSTOR'* 

DTTCA-B RELEASE 

WILL NOW DISPLAY THE UNIT • BYTE IN OCTAL FOR 
INVALID UNIT • ERROR MESSAGES. 

MADE CHANGES REQUIRED FOR THE MEMORY MANAGEMENT 
VERSION OF MPG. 

DTTCA-A INITIAIL RELEASE 


?ES 0355 


MA2NDEC-11-DTTCA-3 TCI' TU55 DEVICE ROUTINE FOR NRG 
STANDARD DEVICE ROUTINE TABLE 


nr r !‘ 


AS. 


0] t 

S A 4 


DOi 

NACYli 27(732) 24-SEP-75 


14:00 PAGE 3 


•SBTT. STANDARD DEVICE ROUTINE TABLE 


bb 

59 

S3 

51 

be 

53 

bHf 

sS 

ttb 

53 

59 


^rrno * 
uyyyyy 


• TITLE MAINOEC-ii-DTTCA-B TCil/TUSB DEVICE ROUTINE FOR 
; REVISION ’3’ 

; FILENAME Of "TTCAS3Q.MPG** ON MPG/XXOP MEDIA 

;P1ACYIi: DTTCA‘ > DTTCAVCRF: SYM/DOC^DHCA’ . Pi I 

; LNKX1 1 : DTTCA’ . MPG/B: O-DTTCA’ /£ 

; PAPER WE: PUNCH DTTCA’. MPG FIl£:ELcV 


5 G 


•CSECT 

•DSA0L 


TCii 

GBl 


73 

74 

'j 
< 9 
90 

g. 

3c 

33 


000300’ 

n s* 

■W M i* " Lm 


15275 

mnnn 


DFlGWO: 


; THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT REQUIRED 

; TO INTERFACE WITH MPG. 


.WORD dvreno- 
. WORD 0 


in 

ODDOCh’ 

~\r r\r*r\c s 

Wwvvww 

BLK: 

.WORD 

0 

9S 

0X005 * 

DQOQX 


.WORD 

0 

8b 

3X313’ 

OOXX 


.WORD 

0 

07 

009012* 

oooox 


.WORD 

Q 

P 

000014* 

0X015* 

pggj 


.WORD 

.WORD 

Q 

3 

90 

00CO29* 

000001 

SIZE: 

.WORD 

1 

91 

90 

3^4’ 

lTTpQ 

ERR: 

DREGAO 

.WORD 

.WORD 

0 

17734C 

S3 

3XG2B’ 

000214 

I VC TAD 

.WORD 

214 

04 

300C30’ 

X03X 

PSWD: 

.WORD 

xo 

DC 

000032* 

300000 


• WORD 

0 

% 

00X34 • 

0X713 


.WORD 

HSKEEP-. 

97 

3X035’ 

0X743 


.WORD 

REPORT-. 

99 

xocho; 

XI 353 


.WORD 

KILL-. 

99 

100 

gg§0^. 

^p4 


.WORD 

.WORD 

DATAER-. 

TX T tR-. 

101 

oooohb’ 

300000 

CIOBSY, 

. .*QRD 

0 

1C3 

gggg! 

n 


: .WORD 
.WORD 

§ 

104 

000054* 

000X0 

CLIST: 

.WORD 

0 

IDS 

10b 

137 


OOQOGQ 

8INASC 

.WORD 

0 

^b; 

OOOQOQ 

oooox 

8TASLZ 

DECASC 

.WORD 

.WORD 

0 

0 

108 

109 


oooox 

oooox 

CSYSFW 

SETVEC 

.WORD 

.WORD 

0 

c 

Gam 

00X70’ 

000072’ 

XXX 

CLRVEC 

.WORO 

0 

f t t 

. * A 

ooococ 

TSTVEC 

.WORD 

0 


DEV ICS 
D£v ICS 
BIT 

lit 

BIT 


TES 


SIZE IN 9 
^lAGWORD 
• nowait- flag 


ROU r 
1 FX I T > 

4 = iuc sr?A kmof^' 

l = DO 10 termination 

0 = ERROR ON I/O CMNQ 
NT STARTING BLOCK 


INTERFACE WORD 
INTERFACE WO#© 
INTERFACE WORD 
NTFRFACC WORD 


2 

3 

4 


NUMBER 
(NOT USED) 
D) 


(NOT 

(NOT 

(.NOT 

(NOT 


ED) 

B 

UNINAP 


* 

8 

INTERFACE wOf© 8 
8 OF BYTES TRANSFERRED 
ERROR ON LAST I/O INDICATOR 
FIRST DEVICE REGISTER ADR 
INTERRUPT VECTOR ADR 
INI PROC STATUS WORD CBR 8 ! 

NOT USED 

HOUSEKEEPING ROUT REL AOR 

REPORT ROUT REL AOR 

KILL ROUT REL AOR 

DATA ERROR COUNTER REL ADR 

TIME OUT ERROR ROUT REL AOR 

I '0 BUSY BRANCH AOR 

DEVICE ERROR BRANCH ADR 

USER MODE PRINT ROUT PC BRANCH ADR 

CW€ MODE PRINT ROUTINE BRANCH AOR 

CONVERT BINARY TO ASCII ROUT SR ADR 

CONVERT BINARY TO DECIMAL ASCII BR 

CONVERT PACKED DECIMAL TO ASCII 9R 

MPG SYSTEM FLAGWORO ADR 

SET IN? VECT ROUT 0R ADR 

CLEAR I NT VECTOR ROUT BR ADR 

TEST INT VECTOR ROUT BR ADR 


ADR 



MAINDEC-IHOTTCA-B TC11 'TU5fe DEVICE ROUTINE FOR flPG MACYli 
DTTCA9.Fi 1 STANDARD DEVICE ROUTINE TABLE 


112 

OQOQH’ 

300000 


RTNINT: 

.WORD 

0 

113 

00007b' 

000000 


GETi 

3YT: 

.WORD 

o 

114 

000130* 

000000 


put! 

3YT; 

.WORD 

0 

1 15 

000102' 

000014 




.WORD 

DVREGS- 

Hs 

I 4 < 

000104’ 

00010b’ 

mm 




.WORD 

.WORD 

mi- 

113 

000110' 

00027b 




.WORO 

DVMVTE- 

119 

000112’ 

000354 




.WORD 

DVCPTE- 

1 3D 

4 -irn U 

1 3 1 

.<4 4nr 4 

nn,4 » ' a* 

WWW 4 4 1 

000505 




.WORD 

DVIUST- 

122 

123 

0001 lb* 

041524 

052123 

DVREGS: 

.ASCII 

/TCST/ 

124 

000122’ 

000000 




. WORO 

0 

125 

000124’ 

041524 

045503 



.ASCII 

/icon/ 

12b 

0001 30’ 

000002 




.WORD 

2 

127 

000132’ 

041524 

041527 



.ASCII 

/ TCWC / 

129 

00013b’ 

000004 




.WORD 

4 

129 

000140’ 

041524 

040502 



.ASCII 

/TCBA/ 

130 

000144’ 

0001%’ 

00000b 




.WORD 

b 

141 

041524 

052104 



.ASCII 

'TCDT/ 

132 

000152' 

000010 




.WORD 

10 

133 


000154’ 


OVREGEs 

# 


134 








135 

000154’ 

120 

201 

DVCMDS: 

.BYTE 

120.201 

13b 

oeoisb’ 

001340 




.WORD 

rea6-. 

13"' 

000150* 

130 

201 



.BYTE 

130.201 

138 

000152* 

001354 




.WORD 

WRltE-. 

139 

000154’ 

37b 

000 



.BYTE 

378.0 

HO 

DOGlbb* 

001300 




.WORD 

nquPit- 

H* 

ooo : ■’O’ 

375 

000 



.BYTE 

375.0 

WA ! t - . 

142 

000*72’ 

001254 




.WORD 

143 

0001 79* 

374 

000 



.BYTE 

374.0 

HA 

DOM 7 *,* 

00080? 




, WORO 

rep6rt- 

145 

000200’ 

373 

000 



.BYTE 

373.0 

t * 

l itJ 

000*202’ 

00057b 




.WORD 

rep6rt- 

147 

300204* 

372 

nnn 

WWW 



.BYTE 

372,0 

148 

'.00205* 

001270 




.WORD 

FWD-. 

149 

000210* 

3 7 1 

000 



.BYTE 

371,0 

ISO 

00C212’ 

001274 




.WORD 

REV-. 

151 

000214’ 

372 

200 



.BYTE 

370,0 

152 

000215* 

001350 




.WORD 

RONUM-. 

153 

000220’ 

“X* 

Jb t 

COG 



.BYTE 

367,0 

154 

OCOc22* 

00135b 




.WORD 

RDALL-. 

155 

000224’ 

3bb 

000 



.BYTE 

3bb,0 

15b 

00022b’ 

001374 




.WORD 

WRALL-. 

157 

000230’ 

385 

DOC 



.BYTE 

355,0 

158 

900032* 

001402 




.WORD 

WRTM-. 

1S9 


384 

000 



.BYTE 

354.0 

IbO 

00023b’ 

001410 




.WORD 

STOP-. 

lb* 

000240’ 

383 

DOG 



.BYTE 

353.0 

1S2 

000242’ 

001428 




.WORD 

STROLL-, 

Ib3 

000244’ 

177777 




.WORD 

177777 

lb4 








ibS 

00024b’ 

04751b 

040527 052111 

OVPK 

TE: 

.ASCII 

/NOWAIT - 

ibfc 

Q0Q2S4’ 

376 

300 



.BYTE 

375,0 

ife7 

00025b* 

020040 

040527 052111 



.ASCII 

/ WAIT* 


EOl 
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RETURN FROM INT ROUT 9R ADR 
GET DATA BYTE ROUT BR ADR 
PUT DATA BYTE ROUT BR ADR 


ADR OF DEVICE REGISTER NAMES 
ADR OF DEVICE FUNCTIONS 
ADR Of %K TBL EXTENSION 
ADR OF MODEL VECTOR TBL EXTEN. 
ADR OF COMPILER TBL EXTEN. 

ADR OF DEV INTERFACE UD SYM TBL 


; VALID DEVICE REGISTER .NAMES S 
: THEIR POSITIONS RELATIVE TO 
; THE DEVICE REGISTERS BASE ADDRESS. 



VALID DEVICE FUNCTIONS 
FLAG BYTE: 

BIT 7 = NPR DEV 
BIT 3 r NASS8US DEV 
BIT 0=2 WORDS FOR ADR 
(18 BIT ACRS • 


•.TABLE TERMINATOR 
; PACK TABLE EXTENSION 



F01 

f1AI*C£C-:i-D^CA-9 TCI1- TUBS DEVICE ROUTINE FOR MPG MAC Y 1 i 27(732) 24-SEP-76 14:00 PAGE 3-2 

DTTCA9.Pl i STANDARD DEVICE ROUTINE TABLE 


158 

:: let 4 * 

375 

ODD 

l'*9 

•".0288’ 

052123 

052121 

irj 

* 

374 

Q'OQ 

171 

DDD?7b f 

047503 

047125 

172 

C00304 ’ 

373 

000 

173 

000305’ 

G20C4Q 

043040 

r » 

000314’ 

000315’ 

372 

000 

175 

020040 

051040 

1 ?K 

4 ' M ! 

000324’ 

37.1 

UOO 

+ 

i 1 / 

000328* 

051040 

047104 

f 

4 U 

000234’ 

370 

000 


000336* 

05 104Q 

040504 

ISO 

000344 ’ 

367 

000 

IBi 

000348* 

053440 

040522 

182 

133 

BSSiis' 

385 

020040 

000 

051127 

194 

000384* 

365 

000 

IBS 

000388’ 

020040 

052123 

185 

1 Q 4 ? 

i o / 

000374’ 

0QQ378* 

052123 

QOO 

040*20 

188 

300404’ 

353 

000 

I El 




190 

000408’ 

D00378 

000832 

191 

000412’ 

000375 

000832 

192 

000418* 

000374 

000832 

193 

000422’ 

000373 

000832 

i CMI 

iTi 

000425’ 

000372 

000532 

195 

000432’ 

000371 

000832 

1% 

000435* 

000370 

000533 

197 

000442’ 

000357 

CXJ0&33 

198 

000446* 

000388 

000542 

199 

300452’ 

000355 

000542 

2D0 

000455* 

000354 

000532 

201 

000482’ 

000383 

000532 

202 




203 




2J4 




205 




205 

000458 ’ 

003 

378 

207 

930470’ 

004537 

000012 

208 

00047s ’ 

003 

375 

209 

C004/8’ 

004537 

000012 

210 

000502’ 

000504’ 

000512’ 

004 

374 

211 

004537 

000012 

212 

004 

373 

213 

000514’ 

300522’ 

004537 

000C12 

214 

003 

372 

215 

000524 

000530* 

004537 

0000 12 

215 

003 

371 

217 

000532* 

000535’ 

000540’ 

004537 

000012 

218 

005 

370 

219 

004537 

000012 


000545’ 

000002 


220 

221 

000550’ 

000552’ 

00C56C’ 

005 

357 

0000 12 

004537 

000CC2 




;»iOD£L VECTOR TABLE EXTEN 


;NQ WAIT 
; WAIT 
; STATUS 
’.COUNTS 
; FORWARD 
; REVERSE 
;READ NUMBER 

;READ ALL 


051525 

051524 

042127 

053105 

04b525 

048114 

048114 

0%524 

050117 

04&114 


DVMVTE: 


.3 V TE 

.ASCII 

.OYTt 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.8YTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

• BYTE 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
WORD 
. WORD 
.WORD 
.WORD 


375.0 
/STATUS/ 

374.0 
/COUNTS/ 

373.0 

' FWD/ 

372.0 

/ REV/ 

371.0 

/ RDNUM/ 

370.0 

/ rdall/ 

357.0 

/ wrall/ 

355.0 

/ ilRTM/ 

355.0 

/ STOP/ 

353.0 

37B,LMWAIT-LGCZ 

375,LUAIT-L0CZ 

374.LSTATS-L0CZ 

373, LCOUNT-LOCZ 

372,LFWD-L0CZ 

371.LREV-L0CZ 

370,LRDNUN~L0CZ 

357.LR0ALL-L0CZ 

355.LWRALL-L0CZ 

355,LWRTM-LCCZ 

354.LST0P-L0CZ 

383.LSTALL-L0CZ 



6VCPTE: .BYTE 


.WORD 


.BYTE 


.WORD 


.BYTE 

001002 

.WORD 


.BYTE 

001001 

.WORD 


.BYTE 


.WORD 


.BYTE 


.WORD 


.BYTE 

000000 

.WORD 


.BYTE 

GOCQCC 

.WORD 


COMPILER TABLE EXTENSION 


3.375 
4§37 10. 

3,37t 

4537,10. 

4 3?H 

4^37. 10., 1002 

4.376 

4^37. 10., 1001 
3,37^ 

4^37.10. 

3.371 

4^37.10. 

5.376 

4^37, 10. ,0.2 
5.357 

4^37, 10., 0,2 



ru ru r\j ru ry ru ru ru r u ry r furyfyfyryfyfyfurufu ruru fury ru ru ru ru ry r y f u ru ru r u r u r u r u r u r u r u i u r » # r u ru rur u f u ruru ruru 

- j ^ ^ -4 cr ^ cr cr' a ^ cr * u g ^ a ' g ' a u n u i y u/ ? u i a ) ysut ynx x x x. -t 4: x t xxuwutjuut- , t.. , c»ujrufufuru ruru ruru 

turu»-o^&^^inxtunj*-OwOC 0 ^ 4 a'tf!^iU fy ► - oao oq - 4 cr tn x cu ru ► « o uj co j cr u i x cu r u * - o a* to jcr uix uufu 
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SEQ 0?59 


; WRITE ALL 


; WRITE TIMING l MARK 


; STOP 
; STOP ALL 


L TABLE 


: END OF TABLE 


; STORAGE FOR DEV REG’S AT IN 


; DEV REG CURRENT VALUES STORAGE 

; BYTES READ COUNT (READ, RQALL, S RDNUM 

•.BYTES WRITTEN COUNT (WRITE, WRALL. S 
; WRTM) 

;READ CMNO COUNT (READ. RDAlI , S RDNUM ' 
; WRITE CMND COUNT (WRITE. WRALL, S WRTM 
;MISC. CMNO COUNT (STOP i STPALD 
: DEVICE ERRORS COUNT 
;DATA ERRORS COUNT 



NAINDEC-li-DTTCA-B TCii-'TUSB DEVICE ROUTINE FOR MPG HACY11 
DTTCAB.Pl 1 STANDARD DEVICE ROUTINE TABLE 


274 

z>?c 

000720’ 

000000 

INTCNT 

.WORD 

0 

c i : 

iZ t b 

000722’ 

000000 

TOECNT 

.WORD 

0 

277 

000724’ 

000000 

ERRADR 

.WORD 

0 

278 

000725’ 

000000 

CNTADR 

.WORD 

0 

0,?Q 

t ™ 

000730’ 

000000 

CURFLG 

.WORD 

0 

230 

000732’ 

000000 

CURCNT 

.WORD 

0 

281 

000734’ 

000000 

CURCf® 

.WORD 

0 

282 

000735’ 

000000 

IN8LKN 

.WORD 

0 

2S3 

000740’ 

000000 

FINCNT 

.WORD 

0 

284 

000742’ 

oooooo 

REVCNT 

.WORD 

0 

285 


000744* 

HSKPEN: 

m ♦ 


28b 






287 


oooooo 

XXXX= 

0 



5E0 0350 


HOI 

27(733) 24-SEP-75 14:00 PAGE 3-4 


INTERRUPTS COUNT 

S OF ENTRIES INTO T/0 ERROR ROUT 
CURR ADR IN USER PROG 
ADR OF BYTE COUNT TOTALS 
FLAG WORD OF CURR CMNO 
WORD CNT FOR CURR CMNO 
CURRENT 3LK ORIENTED CNND 
INITIAL BLK I FOR SEARCH 
FINAL WORD COUNT (TCWC) 

TAPE DIRECTION REVERSAL CNT 


; VALUE TO BE TAILORED B? DEV ROUT 



MAINOEC-il“C T TCA-B TCll.'TUSb DEVICE ROUTINE FOR MPG MACYil 
DTTCA8.PII TCI I SUPPORT ROUTINES ENTERED FROM MPG 


101 

27(732) 


24-SEP-78 14:00 PAGE 4 


289 

290 

291 

pep 

293 

294 

295 
2% 
297 
293 
£39 


317 

319 

319 

320 

321 

322 

323 

324 

325 
32b 

327 

328 

329 

330 
33 i 
332 


33 1 

33S 

33b 

337 

338 

339 

340 

341 

342 

343 

344 


.SBTTL TCI 1 SUPPORT ROUTINES ENTERED FROM MPG 


; DEVICE ROUTINE HOUSEKEEPING 


; J5R 
: . WORD 


R5.HSKEEP 

o 6r i 


; R2 = PROG ’ S OPSW 
: DESTROYS RO.Rl 


S/R CALL 

0 = DO HSKP PER OPSW 

1 = UNCOND. DO HSKP 


300 

030744’ 

305725 


HSKEEP: TST 

(R5) + 

; UNCONDITIONALLY DO HSKP’ 

331 

00074b* 

001003 


8NE 

10$ 

;N.Y-I0$ 

332 

000750’ 

000754’ 

032702 

000004 

PIT 

•HSKPEP.R2 

; OPSW SPECIFY EACH PASS HSKP 

303 

001010 


8NE 

30$ 

; Y ,N-30$ 

304 

00075b’ 

010700 


10$: MOV 

PC.RO 

;Si:T UP FIRST WD ADR 

305 

000780’ 

082700 

177872 

Q0CG35 

ADD 

*h5kpst~. a rq 


30b 

000784’ 

012701 

MOV 

•HSKPEN-H5KPST/2.R1 

; SET UP i OF WORDS 

307 

000770’ 

005020 


20$: CLR 

(RO)* 

;HSKP ALL NECESSARY AREAS 

308 

309 

000772’ 

000774’ 

000778’ 

005301 

001375 


DEC 

BNE 

Rl 

20$ 


310 

311 

312 

313 

314 

315 
31b 

000205 


30$: RTS 

; TCl 1 

RS 

REPORT ROUTINE 

; JSR RS. REPORT 

: . WORD FLGWD 

; EX I T IN-LINE 

S/P CALL 
FLAGWORO 


031300" 
331004’ 
331313’ 
301312’ 
00131V 
001023' 
001024’ 
00102b’ 
001033’ 
001032’ 
001 034’ 

K 

001044’ 

001050’ 

0019S2’ 

OOlOSb’ 

OOlObO’ 

00106c’ 

OOlObb’ 

001072’ 

00107H’ 

00107b’ 


3043b7 
332'* IS 
U31Q12 
010730 
Db2700 
012701 
00S720 
001003 
005301 
001374 
000513 
004787 
012504 
032704 
001443 
004587 
17780b 
010700 
082700 
012701 
005720 
001003 
005301 


003120 

177778 


177882 

000012 


003114 

000002 

003124 


177570 

000005 


REPORT: JSR RQ.SAVREG 

BIT *177778, ( RS ) 
3NE IQS 

MOV PC, RO 

ADD *BYRD-.,R0 

MOV *10., R1 

55: 1ST iRQ:4 

arc 10$ 

DEC R1 

8NE 5$ 

8R OVREX 

10$: JSR PC.SUPTAD 

MOV IR*)+,R4 

BIT *2.R4 

BEG DI^CNT 

JSR R5.STSTAT 

.WORD CStAT-. 

MOV PC.RO 

AOO *I§TAT-. ,R0 

MOV *5.R1 

20$: TST (RftH 

8NE 30$ 

DEC Ri 


SIT 15 = CMNO MODE CALL 
81 T 9 = PROG STMNT CALL 
BIT 1 = 00 STATUS REPORT 
BIT 0 = DO COUNTS REP0R1 

; SAVE REG’S RO - RS 
; DISPLAYING CNTS AT END OF 
;PROG PASS 7 (Y.N-IQS) 

;SET UP ADR OF CNTS 

GET « OF CNT WORDS 

THIS CNT WORD = 0 7 

Y.N-IQS 

0£CR WORD CNT 

CK ED ALL WORDS 7 (Y.N-55) 

GO TO EXIT — ALL C&TS ARE 
;3ET UP PROG TBL ADR IN R3 
;GET FLAGWORO 

; GOING TO DO STATUS DISPLAY 7 
; Y N-DISCNT 

; g5 STORE STATUS REG’S 

SET UP ADR OF REG’S AT 
LAST I NT 

SET UP » OF REG’S 
ALL REG’S = 0 7 
N.Y-40S 
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SEG C362 


; DISPLAY CURR UNIT I 
; ISSUE ’AT LAST INF MSG 


; GO DISPLAY STATUS AT LAST IMT 

; CONTINUE DISPLAY 
; DISPLAY CURR UNIT « 

ISSUE ’CURRENTLY’ MSG 


; GO DISPLAY CURRENT STATUS 

;G0 DISPLAY INFO WORDS 
; CHECK FOR COUNTS DISPLAY 
; DISPLAY CURR UNIT I 
; DISPLAY COUNTS 7 
; Y.N-RPTEND 
;StT UP « OF WORDS 
; SET UP ADR OF CNTS 

; SET UP TBL ADR 

;MQV MSG ADR TO S/R LINKAGE 

;5AVE ALL REG’S 
; GET CURRENT COUNT 
; CONVERT IT TO ASCII 




RESTORE REG’S 
on I NT AT NXT CNT 
DONE ALL WORDS 7 
Y N-RPTLP 

GO ISSUE COUNTS MSG 


; ISSUE "END OF REPORT” MSG 


: RESTORE REGISTERS 
; SET UP RETURN POINT 
; EXIT IN-LINE 



5E0 036 


MAINDEC-i l-DTTCA-B 
DTTCAB.PJi TCli 

40 : 

4i*p 

"Wfc, 

403 

404 
*05 
40o 
40? 

408 
408 

410 

411 
4.0 

413 

414 

415 
1 16 
'H? 

MB 
418 
400 

421 

422 

423 

424 

425 

426 

427 

428 
428 

430 

431 

432 
423 

434 

435 

436 

437 

438 


KOI 


rr ' i 
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SUPPORT ROUTINES ENTERED FROM MPG 


001320’ 

001324’ 

001322’ 

001334* 

001340’ 

00.1344’ 

001350’ 

001352* 

001356 ’ 

001360’ 

001364’ 

001370 ’ 

001374 ’ 

001400 ’ 

QC1410’ 

001412’ 

001416’ 


005267 
32672? 
00 103! 
02 u 06? 
004767 
004567 
177314 
004567 
00040) 
112714 
004767 
042713 
004567 
DC’ 553 


$ 


0)2605 

000177 

000205 


001420’ 004567 
001424’ 000407 
00)426’ 016701 
001432’ 112761 
001440’ 004767 
001444’ 000205 


002450 

176372 

000011 

002404 


; TIMEOUT ERROR ROUTINE 


177376 

177372 

002564 

002612 

002632 

282516 

000011 

002460 

000010 

001674 


002530 

176432 


000007 


TOUTER: INC 

CMP 

BNE 

JSR 

JSR 

JSR 

.WORD 

JSR 

BR 

MOVB 

JSR 

105: BIC 

JSR 
.WORD 
.WORD 
JSR 
MOV 
JMP 

TOUTEX: RTS 


; JSR R5 f TOUTER 

TOtCNT 
TOECNT, I? 

TOUTEX 

R0,SAVR2G 

PC.SUPTAD 

R5.STSTAT 

CStAT-. 

R5.TVECT 

lOi 

mi. (R4i 
pc x Aintv 

•UT4IQT. (R3) 
R5,ERRC§1 
I0t0-ERN8AS 
14 

ro’resreg 

(S£)+,R5 

aCUPG^R 

R5 


S/R CALL 

; INCR K OF TIMEOUTS THAT OCCURRED 

; THIS SEVENTH TIMEOUT IN A ROW 7 

; Y.N-TOUTEX 

ISAVO ALL REGISTERS 

; SET UP TCCM !. PROG TBL ADR’S 

; STORE CURRENT STATUS 

;CK IF I HAVE VECTOR CONTROL 
;BR IF I DON’T 

; RESET INT ENABLE S STOP THE TAPE 
; RESET THE INTERRUPT VECTOR 
; RESET WAITING FOR I/O FLAG 
: ISSUE TIMEOUT ERROR MSG 


; RESTORE REGISTERS 
; REMOVE RETURN ADR 
; GO TO ERROR EXIT 
; EXIT IN-LINE 


; KILL USER PROGRAM ROUTINE 

; JSR R5.KILL S/R CALL 

;R3 MUST CONTAIN PROG TBL ADR 
; DESTROYS R0,R1 


C00002 


KILL: JSR 

BR 
MOV 
MOVB 
JSR 

KILLEX: RTS 


R5. TVECT 

kiiLlex 
DREGAD.R 1 
mi.2(Rl) 
PC, ft INTV 
R5 


; CK IF I HAVE VECTOR CONTROL 
;BR IF I DON’T 
; GET DEV REG ADR 

; RESFT INT ENABLE S STOP THE TAPE 
; RESET INT VECTOR INFO 
;EXIT IN-LINE 



I MAINDEC-Ii-DTTCA-B TCll'TUSb DEVICE ROUTINE FOR MPG 
: OTTCAB.P11 TCIi FUNCTION ROUTINES 
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MACYIi 27(732) 


24-SEP-75 14:00 PAGE 5 


440 

441 

442 

443 

444 

445 
44b 

447 

448 

449 

450 
4? 1 
45? 

453 

454 
u 55 
45b 

457 

458 

459 
450 
4b i 
4b? 

453 

454 

455 

457 

458 

459 

470 

471 
47? 

473 

474 

475 
475 
Hi 7 

478 

479 

480 
431 
48? 

483 

484 

485 
485 

487 

488 

489 

490 

491 


001445’ 042757 
001454’ 004757 
1450’ 

1454’ 


001455’ 052757 
001474’ 000205 


001475’ 042757 
001504’ 000205 


001505’ 052757 
001514’ 000205 


001515' 

001522’ 

001525’ 

0015.92’ 

001535’ 

001540’ 

001544’ 


012701 

012702 

0U4757 

005257 

010700 

052700 

000455 


100000 

001505 

002354 


175325 WAIT: 


004000 175275 FWD: 


004000 175255 REV: 


000105 

000011 

001434 

177150 

177140 


READ: 

RDCOM: 


SBTTL TC11 FUNCTION ROUTINES 


’WAIT” FUNCTION ROUTINE 


100000 175305 NOWAIT: 



: JSR R5.WAIT 

FUNCTION CALL 

BIC 

JSR 

il 00000, DFLGWD 
PC.CKDBSY 
PC RINTV 
R5 

; RESET THE “NOWAIT” FLAG 
; WAIT IF BUSY & DO TERMINATION 
RESET THE INTERRUPT VECTOR 
•EXIT IN-LINE 

; "NOWAIT" FUNCTION ROUTINE 



; JSR R5, NOWAIT 

FUNCTION CALL 

BIS 

F.TS 

#100000, DFLGWD 
R5 

;SET THE “NOWAIT" FLAG 
; EXIT IN-LINE 

;"FWD" 

FUNCTION ROUTINE 



; JSR RS.FWD 

FUNCTION CALL 

BIC 

RTS 

#4000, DFLGWD 
R5 

; RESET THE REVERSE FLAG 
; EXIT IN-LINE 

;”REV" 

FUNCTION ROUTINE 



; JSR R5,REV 

FUNCTION CALL 

BIS 

RTS 

#4000, DFLGWD 
R5 

;SET THE REVERSE FLAG 
; EXIT IN-LINE 

; "READ” 

FUNCTION ROUTINE 



; JSR RS.READ 

; . WORD ADA 
; . WORD ADR 
; . WORD CNT 
; . WORD DEV 

FUNCTION CALL 

DATA AODRESS (BITS 15 S 17) 
DATA ADDRESS (BITS 0 - 15) 
BYTE COUNT 
(NOT USED) 

MOV 

MOV 

JSR 

INC 

MOV 

ADD 

BR 

#105, R1 

•on .Ra 

PC.C&DBSY 

RDCNT 

PC.RO 

#B*RD+2-.,R0 

CMDCOM 

; SET UP READ CMND CODE 
;SET UP READ FLAG WORD 
;G0 CK IF DEV IS BUSY 
; ADD 1 TO READ CMND CN7 
; SET UP ADR OF BYTES READ CNT 

; GO TO CMND COMMON PROCESSING 


SEG 0354 




-75 14:00 PAGE 5-1 


5EQ 0255 


FUNCTION CALL 

DATA ADORFSS (BITS 15 & 17) 

DATA ADDRESS (BITS 0 - 15) 

BYTE COUNT 
(NOT USED) 

;SET UP WRITE CMND CODE 
;SET UP CMND FLAG WORD 
GO CK IF DEV IS BUSY 
ADD 1 TO WRITE CMND CNT 
JSET UP ADR OF BYTES WRITTEN CNT 

; GO TO CMND COMMON PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 

; SET UP RDNUM CMND CODE 
; SET UP CMND FLAG WORD 
• GO TO COMMON READ PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 

; SET UP RDALL CMND CODE 

; SET UP CMND FLAG WORD 

•GO TO COMMON READ PROCESSING 


FUNCTION CALL 
DATA ADDRESS 
BYTE COUNT 

; SET UP WRALl CMND CODE 
; SET UP CMNE Flag WORD 
; GO TO COMMON WRITE PROCESSING 
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b4d 

543 

544 

545 
54b 
54 T 


; “WRTM’’ FUNCT iON ROUTINE 

; JSR RS.WRTfl 
; . WORD AOA 
; . WORD CN T 


548 

001634’ 

012701 

000013 

MRTM: 

NOV 

»0l3,Rl 

549 

001840’ 

012702 

000022 


NOV 

*022, R2 

550 

C01544’ 

000744 



BR 

WRCOM 

551 







552 







553 
cc u 





;"STCP” 

FUNCTION ROUTINE 

toi 

555 






; JSR R5,ST0P 

558 







557 

001848’ 

012701 

000111 

STOP: 

MOV 

#111. Ri 

558 

001852’ 

012702 

000044 


MOV 

*044, R2 

559 

001858’ 

004767 

001304 

4150011: 

JSR 

PC, C&DBSY 

550 

001882’ 

005267 

177024 


INC 

MlkNT 

551 

001886’ 

000405 



BR 

CMDCOM 

552 







583 







584 





; "STPAIL 

” FUNCTION ROUTINE 

585 







588 






; JSR RS.STPfiLL 

587 







588 

001670’ 

012701 

gooin 

5TPAIL: 

MAy 

*101 , Hi 

589 

001674’ 

012702 

00Q044 


MOV 

#044.42 

570 

001700' 

000766 



BR 

MISCOM 


76 14:00 PAGE 5-2 
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DTTCA8.PK REVISION HISTORY 


< 4*4 

% 

*48 

4 <c 3 

51 


.S8TTL REVISION HISTORY 
APR 7b DTTCA-B RELEASE 

DEC 75 WILL NOW DISPLAY THE UNIT s BYTE IN OCTAL FOR 
INVALID UNIT l ERROR MESSAGES. 

DEC 75 MADE CHANGES REQUIRED FOR THE MEMORY MANAGEMENT 
VERSION OF flPG. 


AUG 75 DTTCA-A INITIAIL RELEASE 




C02 

NACYli 27(732) 24- 


*10, R2 
501 

31K.INBLKN 
liOlRi 
3lK, 1577. 

SOS 

R 5 .ERRCS 

IN^BKN-CRMBflS 

3. 

DATAER 

*i.ERR 

ERftCNT 

OCiPGER 

tli.DFLGWD 

rev6nt 
120.R2 
NON* NT 
PT0CNKR3) 
TOECNT 
82.0FLGW0 
•wtHIOT, (R 3 ) 
Rl.(RM) 

DFiLoWD 

wtnot 

R5.3CI0BSY 

PC.PROCTN 

RS 

IWT4I0T, (R3) 
CMDEX 


-76 14:00 PAGE S-4 


0 0366 


"HIS A BL* search TYPE OF CMNO 7 
Y N-50S 

INITIALIZE BLK i FOR SEARCH S/R 
SET JP "RDNUM" CMND CODE 
IS SLOCK t VALID 7 
N.Y-SOS 

REPORT INV BLK * ERROR 


; ADO I TO DATA ERR CNT 
; SET THE ERROR INDICATOR. 

; REMOVE THE I ADDED TO DEV ERR CNT 
;G0 TO NPG ERR RtTN POINT 
; RESET THE ERROR FLAGS 
; RESET TAPE REVERSAL CNT 
; NON-INTERRUPT SERVICING 7 
; N. Y-NONINT 

; INITIALIZE TINEOUT COUNTER 

; RESET « OF TIMEOUTS 

; SET THE “PROCESS TERMINATION" F^AG 

; SET WAITING FOR I/O TERM r LAG 

.•ISSUE THE CMNO 

; "NOWAIT" BIT SET 7 

;N.Y-WTNOT 

; wAlT FOR I/O TO COMPLETE 
; GO PROCESS "LRMINATION 
;EXIT IN-LINE TO USER PROG 

.RESET WAITING FOR I/O TERM 
;GC TO EXIT 



MAlNDEC-i I- 
DTTCAB.Pi 1 

=59 
563 
• 55 i 


TCP- 


002 


TCii TU56 DEVICE ROUTINE FOR MPG MACYli 27(732) 
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3369 


706 

707 
706 
70S 

710 

711 

712 

713 


. SBTTL TCI 1 NON- INTERRUPT COMMAND X DATA SERVICING 


552 

mppix* 

042701 

000100 


NONINT: 

Q r r 

0 A W 

663 

rifppip* 

110114 




MOVB 

554 

002234* 

032702 

000010 



BIT 

S‘::5 

nnbbui]* 

0015% 




RFC 

bob 

002242’ 

105714 



10$: 

TSTi 

'667 

553 

W.»UWV^4* 

002^5’ 

100375 

012701 

00GQ03 



3PL 

MOV 

549 

C022S2* 

004757 

0004E4 



JSR 

57*3 

:022S6* 

000430 




9R 

b. - 

D02250’ 

032757 

000010 

175442 


3IT 

572 

002266* 

001365 




§W- 

573 

002270’ 

002274’ 

004767 

000222 



JbR 

574 

032702 

000200 



BIT 

5"^ 

b-'b 

002300’ 

001443 




BEQ 

■iv r 

5^8 

5~9 

0G2332’ 

105714 



20$: 

TSTB 

5BQ 

002304’ 

100375 




BPL 

581 

002306’ 

005714 




TST 

532 

DQ2310’ 

100415 




3MI 

533 

002312’ 

015402 

177775 



MOV 

58H 

032315’ 

042702 

177774 



BIC 

5S5 

002322’ 

010220 




MOV 

586 

0)2324’ 

005201 




INC 

587 

002225’ 

001411 




BEQ 

588 

1X32330’ 

011320 




MOV 

589 

002332’ 

005201 

001352 




INC 

590 

[£32334 ’ 




8NE 

591 

002336’ 

000405 




BR 

592 







583 







594 







595 

302340’ 

002344’ 

002352* 

■*04757 

000152 


25$: 

JSR 

6% 

US2757 

000001 

175430 

30$: 

BIS 

597 

010157 

175352 


40$: 

MOV 

598 

002356’ 

010154 

000002 



MOV 

599 

002362* 

010064 

000004 



MOV 

700 

701 

WM?' 

004567 

175260 

001510 



JSR 

.WORD 

702 

X2374* 

005713 




TST 

703 

002376’ 

002402’ 

002406’ 

112714 

000011 



MOVB 

704 

004767 

001550 



JSR 

705 

000701 




BR 


002410 - 

C324J2’ 

002414’ 

002*418’ 

C02 u 20’ 

OOEHcE’ 


105714 
100376 
00571H 
100752 
01 2002 
'02 


50S: 


0427 n ' 


7774 


TSTB 

BPL 

TST 

BN I 

MOV 

BIC 


*100. Ri 

Rl.tfts) 

siu,R2 

70S 

( R 4 ) 

13$ 

*3.R1 
PC. SEARCH 
25l 

iiO.CURFLG 

IDS 

PC.NINTSU 

#250,R2 

SOS 

.•"ROALD” SERVICING 

CRH) 

BOS 

CRH) 

30$ 

-2(RH!,R2 
#177774, R2 
R2,(R0)* 

Rl 

40$ 

(R3MRQH 

Ri 

20 $ 

40$ 


INT EN^fflLE IN CTO 
RDNUM/MRTM CTO 


CODE 


RESET 
ISSUE 

BLK SEARCH TYPE OF CMND’ 

Y.N-70S 

READY SET’ 

Y.N-iOS 

s£l JP RONUM CTO 
GO SEARCH FOR BLK 
ERROR 7 (N.Y-2SS) 

FOUND THE §LK’ 

Y.N-iOS 

g5 SET UP REGISTERS 
"RDALL" CTO’ 

V.N-5CI 


REAOY SET 7 

Y.N-20S 

E&OR BIT SET’ 

N.Y-30S 

G£T TCST REG WITH BITS 16 X 17 

RESET OTHER BITS 

STORE WORD WITH BITS 16 X 17 

DECR NEG WORD CNT 

CNT = 0’ (N.Y-40S) 

STORE BITS 6-15 FROM TCDT 
OECR NEG WORD CNT 
CNT = O’ (Y.N-20S) 

GO TO TERMINATION 


; NON- I NT CTO TERMINATION 


PC.NINTSU 

*1.0FLGl€ 

R1.FINCNT 

Ri,2(RH) 

RQ.4CR4) 

RS.STSTAT 

IStAT-. 

(R3) 

•Oil. CRH) 
PC.S&PTAO 

cm6eno 


: "WRALL” SERVICING 

CRN) 

50$ 

( R4 ) 

30$ 

£R0)+,R2 
#1777*4, R2 


SET UP CORRECT REG VALUES 
SET THE "ERROR” FLAG 
STORE FINAL WORD CNT 
MOVE FINAL CNT TO TCWC 
MOVE FINAL BUS ADR TO TC8A 
STORE ALL STATUS REGISTERS 

KNOCK DOW READY IF STILL UP 
ISSUE "STOP" CTO 
RESTORE PROG TBL ADR 
GO PROCESS TERMINATION X EXIT 


READY SET’ 

Y.N-50S 

EAROR BIT SET’ 

N.Y-301 

G^T WORD WITH BITS 16 X 17 
RESET OTHER BITS 



E02 
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OTTCAa.Pil T CIi NON-INTERRUPT COMMAND & DATA SERVICING 


715 

00242b’ 

Ci 0284 

17777b 


MOV 

R2,-2(R4) 

** T L 

■' a O 

0C2432’ 

305201 



INC 

RI 

T ! 7 

719 

002434’ 

oo5h4>’ 

m 



BEG 

MOV 

+ , (R33 

719 

002440’ 

005201 



INC 

Ri 

720 

002442’ 

001382 



9NE 

S05 

*m 4 

0024^4’ 

032784 

001000 

17777b 805: 

BIT 

«1000,-2(R4) 

722 

002452’ 

DO 1774 



3EQ 

60S 

723 

002454’ 

000738 



9R 

405 

1 kim * 

725 






rWRTIT SERVICING 

< wb 

C f 

00245b’ 

004787 

000034 

70S: 

J5R 

PC, NINTSU 

729 

002482’ 

105714 

100378 


SOI: 

TSTB 

(R4) 

729 

002484’ 



BPL 

305 

730 

002488’ 

005714 



T5T 

;R4) 

73! 

002470’ 

100725 



8MI 

305 

732 

002472’ 

005701 



TST 

R | 

733 

002474’ 

001403 



BEG 

90S 

734 

002478’ 

012013 



MOV 

(ROH, CR3 ) 

735 

002500’ 

005201 



INC 

Ri 

738 

002502’ 

002504’ 

000787 



BR 

805 

737 

012702 

000310 

901: 

MOV 

»200. ,R2 

738 

002510’ 

005302 


1005: 

DEC 

R2 

739 

002512’ 

001376 



BNE 

1005 

740 

002514’ 

00071b 



BR 

405 

741 







742 







743 





; NON- 

-INT REGISTER SETUP S^ 

744 







745 

00251b’ 

016400 

000004 

NINT5U: 

MOV 

4 ( R4 ) , RO 

7% 

002522’ 

016 U Q1 

000002 


MOV 

2 f R4) ,Ri 

747 

002528’ 

010403 



MOV 

P4.R3 

748 

002530’ 

062703 

00000b 


HUu 

*b,R3 

749 

002534’ 

000207 



RTS 

PC 


-7b 14:00 PAGE b-i 


SET BITS lb S, 17 INTO TCST 
DECR NEG WORD CNT 
CNT = 8? (N, Y-60S) 

HOVE BITS 0-15 WORD TO TCDT 
DECR NEG WORD CNT 
CNT = 0’ ( Y , N-50S ) 

DATA MISSED SET YET’ 

Y.N-60S 

g6 TO TERMINATION 


; SET UP REGISTERS 
; READY SET YET’ 

; Y.N-805 
; ERROR BIT SET’ 

: NY-305 
jW6RD CNT = 0’ 

•N Y-905 

•ftfVE DATA WORD TO TCDT 
;DECR NEG WORD CNT 
; GO WAIT FOR NEXT WORD 
;SET UP DELAY CNT 
; DELAY FEW HUNDRED MICROSEC’S 

;G0 TO TERMINATION 


; MOVE BUS ADR TO RC 
; MOVE NEG WORD CNT TO Ri 
;SET UP TCDT ADR IN R3 

;EXIT IN-LINE 



•r T CA~3 


:il TII5S DEVICE ROUTINE FOR MPG 
INTERRUPT SERVICE ROUTINE 

.SBTTL 


F02 
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[NTERRUPT SERVICE 


ROUTINE 


PAGE 


302533 ’ 
002542 ' 


004037 

QQS2B7 

004737 


002530’ 

nnactui 


002572’ 

1X52573’ 

OOcmJc 

002304’ 

002303’ 

002310’ 

002312’ 

002320’ 

002324’ 


173074 

013702 

f ?7Q2 
1403 
012701 
QQ47B7 
000403 
0004% 
005714 
100003 
052737 
112714 
000431 


001332 

173152 

001404 

001424 

173144 

000010 

000103 

000130 


000001 

000011 


fCINT: 


175132 105: 


.WORD 

NOV 

§Iq 


JSR 

8R 

8R 

1ST 

8PL 

SIS 

NOVB 

8R 


RO.SAVREG 

INtCNT 

PC.SUPTAD 

MW * 1 

CURFLG , R2 
• 10 , R2 
55 

•1Q3.R1 
PC .SEARCH 

10 $ 

305 

(R4) 

305 

•l.DFLGMO 
•Oil , (R4) 
505 


774 

002323’ 

032702 

000130 

305: 

BIT 

775 

002332’ 

001421 



BEQ 

773 

002334’ 

013401 

000003 


MOV 

777 

002340’ 

013400 

000004 


MOV 

778 

002344’ 

004777 

175230 


JSR 

778 

002350’ 

000301 



SWAB 

780 

002352’ 

004777 

175222 


JSR 

781 

002353’ 

010034 

000004 


MOV 

782 

002332’ 

005234 

000002 


INC 

783 

002333 

001754 



BEQ 

t CPf 

002370’ 

112714 

000103 


NOVB 

785 

002374’ 

000412 



BR 

793 






787 





;FIW 

738 





788 

DQ237B’ 

032702 

000040 

405: 

BIT 

780 

002702* 

001743 



BEQ 

781 

002704* 

042714 

000100 


BIC 

782 

002710’ 

002713’ 

01B%7 

000002 

173022 505: 

MOV 

783 

042713 

000010 


BIC 

784 

002722’ 

004037 

001212 

335: 

JSR 

785 

002723’ 

000177 

175142 


JMP 


"RONUM" U5ER CMND INI 


#100, R2 
405 

3(R4),R1 
4 ( R4 ) , RO 
PC. aP&TBYT 

Ri 

PC.3PUT8YT 

R0.4CR4) 

2(ft4) 

205 

#103, CRM) 
305 


FINAL INTERRUPT PROCESSING 


•40, R2 
205 

•100. (R4) 
2(R4) .FINCNT 
•WT4I0T.CR3) 
RO.RESREg 
3RTNINT 


;IdO 1 Vb I»? CNT 
;SET UP PROG TBL & TCCN ADR’ 
; STORE ALL DEV REG’S 


GET THIS C WHO'S FlGWD 
IN BLOCK SEARCH MODE’ 

Y.N-SS 

SET UP RONUM WITH INT ENABLE 
GO SEARCH FOR SPECIFIED 8LK 
ERROR ON SEARCH’ (N,Y-105) 

GO TO INT EXIT 

IS THERE AN ERT CONDITION’ 

Y.N-305 

s£t THE ERROR FLAG 

STOP TAPE S RESET INT ENA8LE 

GO TO CMND TERMINATION 


DOING A USER "RONUM" CNN! 
Y.N-405 

g£t BLK « READ 
GET CURRENT DATA ADR 
HAVE MPG STORE I BYTE 
SET UP FOR 2ND BYTE 
STORE IT TOO 
STORE NEW DATA ADR 
DECR NEG WORD CNT 
CNT = 0’ (N.Y-2C5) 

ISSUE "RONUM** CMND AGAIN 
GO TO INTERRUPT EXIT 


ISSUE "STOP" CMND AT FINAL IN’ 

N.Y-20S 

RESET INT ENABLE 
STORE FINAL WORD COUNT 
RESET WAITING FOR I/O TERM 
RESTORE ALL REGISTERS 
EXIT FROM INTERRUPT 


m 
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DTT:A3.Fi 


^97 

^93 

799 

333 

30! 

302 

303 

304 
905 
905 
307 
303 
309 
3*0 
31 i 

D 


r ClI SEARCH FOR DECTAPE BLOCK S/R 


313 

314 

315 
315 

D f 7 

A f 

918 

919 

320 

321 
P?2 

323 

324 


32b 

327 

328 

329 

330 
831 

332 

333 

334 

335 
83b 

337 

338 

839 

840 

841 
942 
843 
344 
845 
84b 
847 
348 

849 

850 

851 

852 


002732 * 
002735* 
00274Q’ 
002742’ 
0027%’ 
002750’ 
002752’ 
002750’ 


002752’ 

002770’ 

002772’ 

002774’ 

003000’ 

003004’ 

003010’ 

003012’ 

003015’ 

003024’ 

003025’ 

003034’ 

303035* 

Q03042’ 

D03Q44’ 

003050’ 

003052’ 

00305b’ 

003050* 



003074 


003075’ 

003102’ 

003110’ 

003112’ 

003114’ 

003I2C’ 

003124’ 


* 15300 
000300 
050001 
015700 
005714 
100475 
032757 
001045 


025457 

001430 

002421 

152700 

n 52701 

032714 

001012 

005257 

025727 

103404 

052757 

000405 

010057 

010114 

052715 

000207 

032714 

0013% 

105001 

155701 

042757 

000752 


052701 

025457 

001411 

003351 

042701 

052700 

032714 


000035 

1*5036 

004000 


SEARCH: 


175022 


000005 175745 


000002 

004000 

004000 


175724 

175720 

000010 

175574 

000002 

004000 


17554* 
0000 It 


OG40CO 

000005 


004000 

000002 

004000 


000006 

174746 


60S: 


70S: 


80S: 

8ES: 

88S: 

90S: 

95$: 


175634 


175626 


100 $: 


102 $: 


.S8TTL TC11 SEARCH FOR DECTAPE BLOCK S/R 


; SEARCH FOR SPECIFIED BLOCK 


HOVE 

SUAE 

BIS 

NOV 

T3T 

9NI 

SIT 

BNE 


:,ip 

9EQ 

9LT 

SU8 

315 

BIT 

BNE 

INC 

CNF 

8LQ 

BIS 

9R 

NOV 

NOV 

ADD 

RTS 

BIT 

BNE 

CLRB 

BISB 

BIC 

BR 


BIS 

CNP 

9EQ 

BGT 

BIC 

ADD 

BIT 


; JSR 

;8R 


PC.SEARCH 

la6el 


S/R CALL 

EXECUTED IF AN ERROR 


;Ri = RDNUM CNNO WITH OR W/0 INT ENABLE 
;R3 = PROG TBL ADR 
;R4 = TCCN ADR 
•.DESTROYS RO,Ri 


PCURDV(R3),R0 

RO 

RO.Ri 

BL&.RO 

(R4) 

110$ 

14000, DFLGWP 
100$ 


;GET CURR DEV » 

; ALIGN DEV * BITS 
; SET DEV > INTO CNNO 
; GET DESIRED BLOCK « 
•ERROR BIT SET’ 

;N.Y-110$ 

; d6iNG I/O’S IN REVERSE’ 
; N, Y-100S 


SEARCH FOR BLK FOR FWD I/O 


5t R4) , INBLKN 

90$ 

90$ 

#2,R0 
#4000 ,Ri 
#4000, (R4) 

80$ 

REVCNT 
REVCNT, #6 
30$ 

#1Q,DFLGWD 

38$ 

RO, INBLKN 
R1 , (R4) 

#2 , ( SP ) 

PC 

#4000, (R4) 
60$ 

Ri 

CURCMD.R1 
#10, CUftFLG 
85$ 


; AT THE BLK WE’RE LOOKING FOR’ 
Y-90S 

•PAST THE BLOCK’ (Y,N-80$) 

; SUB 2 FRON ORG BLK « 

; SET REV BIT IN CMND 
; ALREADY GOING REV’ 

;N,Y-80$ 

; iftCR REVERSAL CNT 

•DONE 6 DIRECTION REVERSALS’ 

; Y N-80S 

;S£t BLK SRCH ERR FLG 

;G0 TO ERROR EXIT 

;SAVE BLK ft (ORG OR AO JUSTED; 

; ISSUE DECTAPE CMND 
; SET UP NORMAL RET ADR 
;EXIT IN-LINE 
; ARE WE GOING FWD’ 

; Y N-BOS 

; CLEAR CMND CODE FIELD 
;SET IN REQUESTED CMND CODE 
; RESET BLK SEARCH MODE FLAG 
;G0 ISSUE CMND 


; SEARCH FOR BLK FOR REV I/O 


#4000, Rl 
6 (R4), INBLKN 
105$ 

80S 

#4000, Rl 
#£.R0 
#4u00 , ( R4 i 


: INITIALIZE TO REV DIRECTION 
; THIS THE BLOCK WE WANT’ 

;N. Y-105S 

; In FRONT OF THE BLK’ (Y,N-3C$) 
; SET DIR TO FWD 
; ALLOW FOR TURN AROUND 
•.ALREADY GOING FWD’ 
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353 

003130’ 

001742 



BEQ 

305 

iN.Y-BOS 

354 

003132’ 

000727 



BR 

701 

: g6 ck REVERSAL cnt 

955 

003134’ 

032714 

004000 

1055: 

8IT 

*4000, CRH ) 

ARE WE GOING REV’ 

95b 

003 I HO’ 

001347 



9NE 

955 

: NY-955 

357 

003IH2’ 

0007b4 



BR 

1025 

|g6 STORE ADJUSTED BLK # 

S58 








359 

0031 HH’ 

0057b y 

17777b 

1101: 

TST 

-2 CRH) 

;END ZONE’ 

9b0 

003150’ 

100337 



8PL 

885 

; Y N-885 

8b 1 

003152’ 

032714 

004000 


BIT 

14000. (R4) 

;G6iNG REV’ 

3b2 

00315b’ 

001315 



BNE 

70S 

; N, Y-70S 

8b3 

C031b0’ 

052701 

004000 


BIS 

#4000. Ri 

; S^T DIRECTION TO REV 

8b4 

003154’ 

000712 



BR 

705 

; GO CK REVERSAL CNT 


U» 
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; CHECK IF DEVICE IS BUSY AND WAIT IF IT IS 
: JSR PC.CKDBSY S/R CALL 


M ,, ’ 

W ■ 

>***>, ** '"n 







; JSR PC.CKDBSY 

0 w 

3"3 







; DESTROYS RQ.R3.R4 

3? 4 







; ON EXIT: 

3~5 







;R3 = PROG TBL ADR 

3 s 

P-T 







;R4 = TCCM ADR 

3 "9 

DO 3 . fcb ‘ 

004757 

000754 


CKOBSY: 

JSR 

PC, SUPTAD 

5"*9 

r o*} i - 3 * 

0327 14 

000 IX- 


ICS: 

BIT 

•luO, (R4) 

993 

5o3i7&’ 

5o 1403 




BEG 

20$ 

3Bi 

303200’ 

304577 

174542 



JSR 

R5.3CI0BSY 

> - 

DQ3204’ 

000772 




3R 

ioi 

'333 

303205 * 

032757 

000002 

174555 

20S: 

BIT 

#2.DFLGWD 

894 

003214’ 

001403 




BEQ 

30i 

995 

003215’ 

004757 

0002% 



JSR 

PC. PROC TM 

335 

303222’ 

000753 




3R 

ioi 

387 

003224’ 

015757 

i 74575 

000012 

30S: 

MOV 

I VC TAD. 4Q$ 

888 

003232’ 

015757 

174572 

000005 


MOV 

PSWD. 4§$ 

389 

003240’ 

004577 

174522 



JSR 

RS.^ETVEC 

390 

0032“ 

OCOOOO 



40S: 

.WORD 

XXXX 

891 

0032%’ 

000000 



45S: 

.WORD 

XXXX 

892 

003250’ 

177255 




.WORD 

TCINT-. 

893 

003252’ 

010557 

175445 



MOV 

RS.ERRADR 

994 

003255’ 

152757 

000004 

175440 


SUB 

14, ERRADR 

895 

003254’ 

000207 




RTS 

PC 


; SET UP PROG T8L & TCCfl ADR'S 
; INT ENABLE ON" 7 
; Y. N-50I 

; RELEASE CONTROL 
; GO CK AGAIN 

;HAVE TO PROCESS PREV TERMINATION' 

. y N-30J 

J g6* PROCESS TERMINATION 
;G0 RECHECK INT ENABLE 
; STORE INT VECTOR ADR 
; STORE PROC STATUS WORD 
; GO SET UP THE VECTOR 
; INT VECTOR ADR 
• PSW 

J REL INT ROUT ADR 
; SAVE CURR USER STMNT ADR 

; EXIT IN-LINE 


003255’ 

003272 ’ 


003302’ 

003304’ 

003312’ 

30331b’ 

003322’ 

00332b’ 


00333b’ 
0033HU’ 
003342' 
0033%’ 
003352’ 
Q03354 ’ 


004557 

17S372 

dim? 

000403 

Q127B7 

D125S7 

012537 

0052S7 

032753 


01044b 

005004 

0047b7 

0045b7 

000000 

000000 


000710 

175252 

175250 

000034 

000032 

17535b 

020000 


000550 
00 1050 


000 100 
000070 

000002 


ERRCS: 

ERRCS1: 

ERRIS: 

ERRCOM: 


ERfIBAS: 


: ERROR INFORMATION DISPLAY S/R 

: JSR RS.LRRCS 

; JSR R5.ERRIS 

; .WORD MSdADR-ERMBAS 
; . WORD MSGCNT 
; DESTROYS R0,Ri,R2 

JSR R5.STSTAT 

.WORD CStftT-. 

MOV iCSTAT-ERSTAD.ERSTAO 

BR ERRCOM 

MOV USTAT-ERSTAD.ERSTAD 

MOV (R5)+,ERMBAS 

MOV (R5)+.ERMBAS+2 

INC ERRCNT 

BIT tPRONER , POPSW ( R3 ) 

BNE 2RREX 

MOV R4,-(SP) 

CLR R4 

JSR PC.DISUNM 

JSR R5, PRINT 

. WORD XXXX 

. WORD XXXX 


S/R CALL FOR CURR STATUS 
S/R CALL FOR INT STATUS 
REL ADR OF ERROR MSG 
• OF 3YTES IN ERROR M C G 


; STORE CURR STATUS 

; STORE ADR OF CURR STATUS 
; GO TO COMMON POINT 
; STORE ADR OF LAST INT STATUS 
; STORE MSG ADR 
; STORE MSG CNT 
; ADO 1 TO ERROR CNT 
; ERROR PRINTING INHIBITED 7 
;N. Y-ERREX 
; SAVE R4 

: SET USER MODE PRINT FLAG 
: DISPLAY UNIT « 

: PRINT ERROR MSG SPECIFIED 


m 
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00335b’ 02572/ 


92b 

92* > 

933 

931 

932 

933 

934 

935 


Q033S4’ 

W 

00337b’ 
003402’ 
003404’ 
003410’ 
003414’ 
0034i 5’ 
003424’ 
00342b’ 
003430’ 
003432’ 
34’ 


001411 


34’ 

3b’ 


004557 

000000 

rf 

111001 

025057 

001402 

050100 

000771 

005720 


177770 

177750 

000714 

)77b 


001701 

001713 


EP 


000004 175300 


k .M JKN: 
ERRSNM: 
105: 


205: 


939 

940 

941 

942 

943 

944 

945 
945 

947 

948 

949 

950 


003442’ 
♦45’ 
3454’ 
003450’ 
003452’ 
003454’ 
003455’ 


004577 


001545 

174414 


001534 


001514 

177752 

012504 

000205 


ERREX: 


CMP 

BEQ 

is 

JSR 

MOV 

MOVB 

CMP 

BEQ 

ROD 

BR 

TST 

MOV 

ADO 

JSR 

MOV 

JSR 

.WORD 

.WORD 

MOV 

RTS 


ERMBAS, IINVDVN-ERM3AS 

ERRSNM 

•INVBKN-ERMBAS 


R5.DISPST 

XXXX 

PC.PRTIWQ 
PSftC3T(R3) ,RG 
(RO).RI 
4CR05,ERRADR 

205 
Rl.RO 
10s 
(R0) + 

PC R1 

*StMNUM-..Rl 

R5.3DECASC 

r1W^ m+h 

stAnmg-. 

-14. 

( SP ) 4 , R4 
RS 


; INVALID UNIT • ERROR’ 

;N, Y-ERRSNM 

■ £RR0R ’ 

; DISPLAY STATUS REG’S 

; DISPLAY CURR BLK # 

GET ADR OF SRC STMNTS 
;SAVE STMNT LENGTH 
; ERROR OCCUR ON THIS STMNT’ 
NY-205 

; POINT AT NXT STMNT 
; GO CK NXT STMNT 
; SET UP ADR OF STMNT « DATA 
; SET UP DATA OUTPUT AOR 

; CONVERT IT TO ASCII 
; SET ? LOW DIGITS TO SPACES 
ISSUE STMNT » MSG 


; RESTORE R4 
; EX I T IN-LINE 


: PROCESS TERMINATION OF PREVIOUS I/O FUNCTION 


951 

003470’ 

004067 

000430 


PROCTM: 

JSR 

952 

003474’ 

003502’ 

042767 

000002 

174300 


8IC 

953 

032767 

000004 

175220 


BIT 

954 

003510’ 

001016 




8NE 

955 

003512’ 

016700 

175214 



MOV 

955 

003516’ 

016701 

175216 



MOV 

957 

003522’ 

laoooi 




BPL 

958 

003524’ 

003525’ 

003530’ 

003532’ 

005401 




NEG 

959 

160100 



25: 

SUB 

950 

005300 




ASL 

%1 

010057 

174262 



MOV 

952 

003535’ 

016701 

175164 



MOV 

953 

003542’ 

060011 




ADD 

964 

003544’ 

005541 




ADC 

965 

003545’ 

032767 

000001 

1742°6 

ti : 

BIT 

955 

003554’ 

001476 




BEQ 

967 

003556’ 

012767 

000001 

174236 


MOV 



88fot8 

000400 

000002 


BIT 

BNE 

970 

003574’ 

003502’ 

003604’ 

032767 

000010 

174200 


BIT 

971 

001070 




BNE 

972 

010701 




MOV 

973 

003606’ 

003612’ 

062701 

001422 



ADD 

974 

010102 




MOV 

975 

976 

003614’ 

012700 

000023 



MOV 

003620’ 

002624’ 

112722 

000040 


105: 

MOVB 

977 

005300 




DEC 


; JSR PC,PROCTM 

RQ.SAVREG 
•2.DFIGWD 
#4 CURFLG 

bS 

CURCNT , RO 
FINCNT Ri 
25 

Rl 

Rl.RO 

RQ 

RG, SIZE 
CNtADR,Rl 

RO. (Rl ) 

-(An 

•l.DFLGWD 

eoi 

il ERR 

•DOERCK,POPSW(R3) 

70S 

•iO.DFLGWD 

905 

PC.R1 

#c6ofld-.,ri 

R1.R2 
•19. .RO 
•40, f R2)4 
RO 


s-s CALL 
;SAVE ALL REG’S 

; RESET PROCESS TERMINATION FLAG 
; I NCR BYTE COUNT’ 
v.N-55 

INITIAL WORD CNT 
FINAL WORD CNT 
IS IT NEGATIVE’ (Y,N-2S) 

•MAKE IT POSITIVE 

; SUB REMAINING CNT FROM INITIAL CNT 

; MAKE IT A BYTE CNT 

;STORE i OF BYTES ACTUALLY XFERRED 

; GET AOR OF BYTE CNT TOTALS 

; ADD IN THIS CNT 

; UPDATE MOST SIGNF WORD OF CNT 

; WAS THERE AN ERROR’ 

; Y . N-80S 

; S^T THE ERROR INDICATOR 
; SUPPOSED TO DO ERROR CHECKING’ 

; Y . N-70S 

; BLOCK SEARCH ERROR’ 

: N , Y-905 

•g£t ADR OF CODE AREA IN ERR MSG 

;MOVE IT TO WORK REG 
; SET UP AREA SIZE 
; CLEAR AREA TO SPACES 
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"d 


1020 

:m 

1022 

1023 

1024 
1Q2S 
ir 


n 

w 

~rp 
nnzn 


28 * 
in 


’4 

013700 


000144 


1028 


£XK303’ 

ShSi^’ 

00*022’ 

00*4027* 

BKF 

00*40% ‘ 


100 

0%HH0 

020 

051410 

004 

048jg2 

000 

004050* 


040520 

052113 

045111 

045105 

045102 


042522 

0501?? 

105 

045513 


8§i4?£ 04s£i? 


8NE 

MOV 


482 

003540 * 

052732 

175013 


AOO 

983 

C(0U 

003553 ’ 

005045 

112004 


20$: 

CLR 

m5vb 

98S 

005704 



1ST 

9S)b 

003552’ 

001421 



8EQ 

987 

003554* 

130417 


30$ * 

8ITB 

988 

003558* 

001003 



BNE 

989 

XlSbO’ 

003554’ 

003555’ 

052700 

000004 


ADD 

990 

000770 



8R 

991 

00S718 


40$: 

1ST 

992 

003570* 

031402 



BEQ 

wCi-J 

00357? * 

112721 

000054 


M0V8 

99* 

003575’ 

005215 


50$: 

INC 


0C37D0’ 

112021 



MOVB 

OCtL 

ocoto?* 

11 2021 



M0V8 

997 

CC0.704* 

1 1 202 1 



MOVB 

398 

DC3705’ 

112021 



MOVB 

999 

003710’ 

082715 

000004 


CMP 

*. ‘VY'I 

0037 p; 

X i 354 



BNE 
TS i 
JSR 



ox;7?s 

004557 

177380 

80$: 

I0G3 

003724; 

001540 



.WORD 

1304 

pfl 

'^7 

QOOiH 

CDG200 

85$: 

.WORD 

JSR 

JS° 

1007 

003740* 
003*744 ’ 
0337%’ 

00%77 

174104 


JSR 

m 

m 

174742 

70$: 

RTS 

INC 

1C10 

0C3752’ 

0Q37S8’ 

004757 

000072 

80$: 

JSR 

1311 

004057 

000158 


JSR 

1012 

1013 

1014 

003752’ 

005770’ 

000207 

m 

177314 

90$: 

RTS 

JSR 

.WORD 

1015 

003772’ 

000018 



.WORD 

1718 

GG377H’ 

000755 



BR 

-Ui / 
1018 




132 ERCDTB: 


1019 

003775’ 

042500 

042118 

.■ASCII 


.ASCII 
.AS 


.ASCII 

.ASCII 

m 

.BYTE 

.EVEN 
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10$ 

PC.RO 

•I^TAT+1-. ,R2 


CSP) 

?QH, 


R4 


(Ri 

R4 
50 $ 

R4 (R2) 

#4 RQ 

20 $ 

(SP) 

50$ 

i’ 'Rm 

(SP) 

( RO ) + (R1 )♦ 
(R0)4>, cri )♦ 

(RO 4,(Rl)* 

iR0)^.(Rl)4 
14. (SP> 

20$ 

( SP ) 4 

RS.ERRIS 

TCtMSG-ERMBAS 


V RINTV 
RO.RESREG 
RS.3CUPGER 
PC 

ERRCNT 

PC.RINTV 

RO.RESREG 

PC 

RS.ERRIS 

BS^HER-ERMBAS 

14, 

55$ 


<200>/EN02- 
< 100 > ''PARE 
<Q4Q>/MXTE. 
<020>/IlOP 
<010>/SELE' 
<004> / BLKfl 
<QQ2>/0AT?1 
<001>/NEXf1 
0 


; SET UP ADR OF ERROR CODE TBL 
; SET UP ADR OF STORED DEV REG’S 

;END OF THE CODE TBL 1 ’ 




RROR BIT SET IN STATUS BYTE" 
•N Y-40$ 

P 6 INT AT NXT CODE TBL ENTRY 
; GO CK FOR NXT CODE 
; FIRST ERROR CODE IN MSG’ 

;N 4 Y-S0$ 

;M 6 vE COMMA TO MSG 
; INC * OF CODES IN THE MSG 
;MOVE ERROR CODE TO MSG 


PUT 4 CODES IN T HE MSG" 

Y.N-20S 

RESTORE STACK 

GO ISSUE STATUS ERROR MSG 


GO RESET INT VECTOR 

RESTORE REG’S 

GO TO MPG ERR RETN POINT 


•XJ T IN-L 


1 TO ERROR CNT 
50 RESET INT VECTOR 
RESTORE REG’S 
EXIT IN-LINE 
ISSUE BLK SRCH ERR MSG 


: GO TO ERROR RETURN 


; ERROR MSG CODE ’ABX 


; TABcE TERMINATOR 


m 
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* f\ +\r) 
4, Uvli 

:03i 

1312 

1033 

1034 
103b 

1338 

*1 

1*38 

.039 

10HQ 

10 4 1 

1042 

1043 

1044 

10% 
1 

A 

10- 8 

1049 

1050 

1051 

1052 

1053 

1054 

1055 
1( 
k 

1058 


004050’ 004557 000020 


3404* M 

004054’ 004577 
004070’ 000000 
004072’ 000207 


004074’ 

004102’ 

004105’ 

004112’ 

004114’ 

ra: 

004122’ 


015757 
0153% 
>77 


175422 

000205 


173744 000004 

174000 


173725 

000004 

17375C 


000010 TVECT: 


201: 


; RESET INTERRUPT VECTOR S/R 

; JSR PC.RINTV S/R CALL 

;R3 MUST CWTAIN PROG TBL ADR 
; DESTROYS RO 


RINTV: JSR 

BR 
MOV 

TCp 

10$: !W0RD 

RINTEX: RTS 


R5, TVECT 
RINTEX 
IVCTAO 10$ 
RS.QClAvEC 
xxfcx 

PC 


; GO Ck IF I HAVE VECTOR CCN’R 0; 

;IeT I :U^P^?NT T VECT ADR 

; GO HAVE MPG CLEAR V 

; fx i T in-line 


; TEST INTERRUPT VECTOR SR 


, OH LHDCL 


S-R CALL 
EXECUTED IF NO 1 
;R3 MUST CONTAIN PROG TBL ADR 
; DESTROYS RO 


SAME 


TvECT.V: 


MOV 

MOV 

JSR 

.WORD 

.WORO 

BR 

TST 

RTS 


I VC TAD .20$ 

PfWA0R?R3) , 

R5.3TSTVEC 

XXXX 

TCINT-. 

TVECTX 

<R5) + 

PS 


SP 


; GET CURR INT VECT ADR 
; STORE FLGUD AOR TO IDENTIFY' 
; DO I HAVE VECTOR CONTROL" 

; MPG WILL TELL ME SINCE I 
; GET AT LOWER MEM IF ME* 
;8R IF I DONT’T HAVE CNTRL 
: BYPASS BR INST IN 5 R CAt. 
.EXIT IN-LINE 


IE 

;av 
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iobi 

I Ob? 




4 M Jm 

1QB4 


; SAVE 

REGISTERS 

I0S5 




1088 



; JSR 

IDS? 



Iu88 

00a;?h' OiOiHS 

SmvREG: NOV 

R1,~(SP) 

10B9 

00H12B’ 010248 

NOV 

R2.-JSP' 

1070 

004130* 010348 

NOV 

R3.-SSP. 

1071 

00132* 0104% 

NOV 

R4.-.SP) 

107? 

004134* OiuSHfc 

NOV 

RS.-(SP) 

.."73 

* m I'***! 1 

004138* 010007 

NOV 

RO, PC 


ROUTINE FOR NPG NACY1* 27(732) 24-SEP-7B 14:OC p AG£ II 

DEVICE ROUTINE 

.S8TTI SUBROUTINES FOR TCII DEVICE ROUTINE 


5 R CALL 
: SAVE RO TmRj c: 


jtM. 1% 


; RESTORE REGISTERS RO TmR. 
; JSR RC.RESREG 


;o?c 

rv'u j hQ * 

DO* 72b 


* 'Ea TST 

' CP ) * 

;R£S T CPE AS ’-R c; 

IDE! 

[viI42* 

012S0S 


NOV 

• «c 

■?< « <w* 


1032 

004*44* 

0128* 


NOV 

•V* • ♦ . 0w 


1093 

00“ 3* 

01290, 


NOV 

: SP ! ♦ , *■ J 


1084 

0041^ 

012802 


NOv 

SF R2 


1Q8S 

OO 92’ 

01280 


NOV 

(SR * . R* 


.0% 
■t r%QrJ 

OOlO’ 

UOT 


OS 

Rf 

; E * I ’ >^1% 

A JC^ 

rm 







:oe8 




; SET 

'9'XRRN'S PROG TABLE ADR 

IN R3 s TCC* ACC :n c- 

10% 







1091 





; J c *- PC.bUP’A C 

S R CmLL 

1092 







:09? 

004 :*fc* 

'il'T'f * 


SL ' mC: NOV 

,.R3 

; SE T JP .OCA’ICN ;cc 

1094 

00*8' 

>2: 

-,2C 

)ro 

hoc:*. .R3 


10% 

com i: 

•%; 

r~b 


"2(R3;,ftj 

;SJB T RRCT CRCG ’8, v i 

10% 

0C41 . 

Jib 

7 3b JO 

4' 'v 

ORE GAT ,Rm 

, G£T 0€v REG BASE ACI 

1097 

084174* 

Ofx' ? i * 

ooor;''? 

ADO 

*2,Rm 

; P C I N* A* * l CCN 

'dm 

004200’ 

003 


> 

p,;. 

;Ev:t INLINE 


Mi D£ via, ? S7 A' US REGISTERS 


llM 

1110 

1111 

1112 


00 c'02‘ 

00234 * 
00208* 
00212 
00214* 
00218* 
00220* 
004222 ’ 
D0H22H- 


oi°sr . 

Of - . jt, ' 
C1B7QC 
012021 
012021 
ui2C : 
0120:: 

8iii& 


,.wi, , r^R*. 

jtcsr* vs *sC , r i 

'■*1 %, RS ' . 

ADO tr * e; 

M '*s . rua6.»C 


, rd , * 


S'R ’IA*, t 

REL S\%GE ADR 


; G£T »£. sr 

* f ? ; Tl 

♦ 1 Kn, V ;S ! : « 


* AC* IF Of* RCG': 

lif «tL , «k #■ i*1l *'+l ii 

, *t »t* l**t ‘4 B 


$ f * 



•• • , t*” * * r i 


1 A I NDE C ** 1 i 

dtt,:as. pi i 


•B 


a T wSb device routine c;(‘ f*p s 


5ubpgu t :n£s fur tci; device ROcTi% 


i ' Jcf 

7 3i ' 


PAG 


* * * " 

Hi- 

t i * a 

i * * 0 

iilB 

n?o 

a i fa * 

llci'd 

* *c’U 

ao 
: * §s 

iA >« c*b 

i ■ ;<*• 
m 4 % ' r 

; J’3 



00% cV 
CC% O 
OK^O’ 
00%^* 
002%* 
OCNcV’ 

OOna^’ 


Cl?7b? 

11S30Q 

05002 ? 

t r , ry^"* 

1 Vi JM ' 

00*iV 

wm 

Llbfbt 

OOOHiQ 

■j 




IS I 

: cp 


a% 

US? 

a 
i *s 
a go 
abs 


. 1 bS 

. ;bfc 
. , . - 

* * t> ■ 

* « LQ 

A A DC 


"■ * ... 

- - ** - * v ;">*"?% * 

W V w . « -J ' V * 

oo:*«a ■ 0bc7o i 
DODXi’ Ci?^ 

«3%* 015500 
" 0101% 



p>3fcb; Q0<»05 

0037b* 00S3?fe 

gg^nrv 0C13SS 
aouynJ * nnc-2^ 
,JU xxS^£^ 

00030P 


I73b0b 

OOOOfe 

wg 

173SS^ 

ooc;?' 


UMU*Uy 


OQCGcO 


• c 


ISPS' 



’ ~i 

4 W Jf 


r3% 


::s*\ 


^ vB 

:% 

EHI 

;sr 

.4QRL 

ncv 

BR 

IV' 

B f /* 

A V 

;sr 

. 40RC 
PR; TSP 
. #4)RC 
*\ .WORD 
P’S 


’m].' 


vw or * 


; * Pc.’vsjNf s s 

rj %■$’ j^a’n prx atc 


,DES'RC<5 %,.« .,R5 

•55j.Gr va 
»CjR{' ; J 3 .PI 
©••' ■? 

*i * t i i T 

**' i bU * 

»s.at* 
cWhSC 

JNA u 1 *** * jh>« h 


; VAt, ID j* 


**'CC, w *- k “ 


aN-DiSv.iv 


* f . 


** 4 




ps.ieiN&s: 
■jnAsc ; * 
RS.PRIN* 


IM* a *:G S P«:^ T 

DSC RS.i'ISPS’ 
*)»C S*4 ’ADc> 
DCS ’CD’S RC.cac'C 


M «> ( .#* %T * * A ,.I* + 

;"v »E "*bv . . I „ . s ; <4 

;00 ISSUE tSA 
.CD-NVEC" 9INAC" a a: <*c 

.a ;ssa ^:* • , 

c « . ' ;s ;%► 


* ** . . 
»£v -vC '* 


w :». 

PS.Rr? 

; 4(, * Hv DA’R AT « 

ADC 

'M ♦.«£ 

;N4{ ;r .*k 

m " 

- - v' * 

ACT' 

p:.c. 

•D'vREGS- .»; 

ar ,. r acp :< =a 

-a. 

•OvREGE -DVRf iS b,» 
' c a ♦ . 5 VRG% 
vRi *.S«on;*£ 

>vpi .a* « a «cas’£c 

**c » 
flCv 

,%m % , w^f ! 

’S’ 

«; '4 

.B'p%5 :;% *ai, ,’ t 

N'"V 

.R5"\RD 

. GE ’ REG’S £- r 

h : v 
, 

»i , - Sf 

R^-lSPf 

.SAVE c; X »c* 


RS.BBiNA5r 

. ;;nv£c’ r *v as. 

" -3RD 
WORD 

DvftvC T * 
%, 'PRINT 
OVRGHO- 
12, 

.PRINT ' ,f -T4* S 1 

-0, 

-a 

i$PiaR5 
5c ♦.=. 

jRESaac ». S 5- 

a ,; 

<SP' 

.DECS StG D v 

IH 

' !d ■ 

re ^ - 

151 

, C t 4 

;DON£ Aia 

,se m : a *a*a — •* 

-j t" 

f ♦*’ t i * t *> 

* i T , - ' Ni 

'* * * 4.1 * 



rciNOCC* 


DTV 


ab.ph 


•CT’CA-fl 


. USB DEVICE ROUTINE FOR NPG 

subruu’ines for ten device routine 


? i 

* 4 4 


B03 

27(732) 2*-S£P-7B i*: 


::-2 


*3 

%, 4 


4 * ‘ 

4 4.» 

4 4 

4 <4 '' 

4 * * S 

* * 5 


1*~9 

;:so 

‘ * a : 

«* >4 %, * 

- ■ : :- 

<4 ■■'!*■■ W' j 

■^4 
-* -* »- 

„ . 5S 


w' -wf 
*% A. v* ,-3 

Cf> 

*» *. .“w 


4 * ^ 
** A 

..'N 


00**15* 00CS50 


DG** 2 B’ 

00**30’ 


■ cc 

* * T*> 


V.' 4 **• 

11 % 

"f «*,*, >* ' 

r«c *>n 
ixJU 

1157 

" 1 QO 

4 4 jCs 

CQ-^%' 

U wr^J 

ci2sc; 

00S7> 

1199 

XW?' 

IXCjO 

1200 

12C1 


CIJ732 

OS2732 

1202 

30*^52* 

153200 

1203 


C1X22 

120* 

Ot>*S6* 

C1C112 

*205 

* yrwi 

aCUD 

^52* 

ipi 

005*12 

1207 

Cd^5*’ 

C15357 


1209 

1210 
1211 
121c 1 

1213 

121 H 

1215 

1215 

1217 

1218 
li 
ii 
1221 



472 * 

♦TV 

00*500’ 

oosce* 

00*505’ 'XXXJO 
00610’ OOOOOC 
00612 ’ 004577 
00*515’ 0002*0 


00*5*0 
00 * 5 * 2 ’ 000000 
00*5**' 003205 


1 73372 
173 * 4*0 

000005 


000013 

000207 


000005 

1733% 


1733*5 

1733% 


000055 ICS: 


201 : 



*0S: 


SOS: 

BOS: 

PRTgx 


; PRINT CURRENT "8Lr VALUE 


PRTI 43 : 


nev 

JSR 

.WORO 

JSR 

.WORD 

.WORD 

RTS 


, T 
* * 


PPIN T : NOV 


"3v 

*5- 


NOV 


N„ V 

f€0 

ncv 

jsp 


,**ORO 


. WORD 
.4QRD 
JSR 


8R 
NOV 
NOV 
JSR 
,*ORC 
.WORD 
9 r S 


; JSR Pc.PRTIWC 
; DESTROYS fe.Rl.R2 

^^8?NRSC 

irfow-. 

RS.PRINT 

iN^OrtG-. 

11 . 

PC 

NSC ”3 L I S” DEVICE 

.JSR R5.RRINT 
. . JORO NS&OR-. 

. 40RD 8YTCNT 

>3 = PROG T0l ADR 

^STROYS^^l^ 

RS.RO 
R$ ♦ . RO 
RS'SRI 

p* 

*31 
PJ.R2 
•26s- . ,R2 
R2.RQ 
RO. ■ R2 J ♦ 

R^ R2) 

PRSC INi R 3 . .PROGNN 
RSjACcIST 

^ 4 hsg-. 

s 

RS, 4JCL 1ST 

XXXX 

xxxx 

RS.aCLIST 

CRLF-. 

prte> 

RO.SOS 

r4* Sul :st 

xxxx 

xxxx 

R5 


S’R CAL*. 

; S£T 8U VALUE 
;CONVER T IT TC ASCII 

; ISSUE BLOCK • "SC 
;EXIT INLINE 


S ® Ck.*. 

RE. AOR OP NSC 
NSC B YT E CNT ,:p *€C RT;,t. 
RESE’ PRT DEv DEDICATES . 

f NEGATE. JSE CNNO NOC€ 

;Cl' NSC AOR S NA*E r A8S 

;C£T g^E COUNT 
: JSE Dte NODE PRI* T ' 

. ’ . N-*OS 

; S^T JR LINK 1*3 ADA 

;NAk£NSC AOR RE*, 
i STORE NSG AOR 
; STORE NSC’S B Y *E COUN’ 
;CNT NEC’ ( Y N-iOS ' 

;NAKE IT POSITIVE 
;$ T 0& PROG’S • I* NSC 
; ISSUE PROG t 


; ISSUE NSC SPECIFIES 

; ISSUE A * CP • S >..* 

; CO TO EXIT 
: STORE NSC’S ABS AD« 

;jTORE ;t| 9V7| CN* 

;CC TO IPS *C !s$lE ’**£ N« 

; £ X I t JN-. :nc 



C03 

MAlNCEC-;:~3^CA-a ""ell TOSb DEVICE routine FOR HPG MACY 11 27(732) 24-SEP-76 14: CC PAGE 
0T7CA8.Pl i T Cll IE S SAGE STORAGE AREA 


1 3 3C 

4 W, %**• *»* 

i ;x»c 

4 W 4».« *J 






.SQTTl 

TCii MESSAGE STORAGE AREA 

* 3 P "* 
1228 






.nlist 

BEX 

12.29 








12.30 






.EVEN 


1231 

OCHSES* 

32 1520 



?W SG: 

m 

/P*/ 

- 3 33 

<4 v* 

DOhSSO ’ 

o?4i.r 

on 


PR0GNT1: 

/xx-'Oii' 

? 331 

-w %**w« 

'0553’ 

1CI 

020 124 

OHQSiH 

ATIHSG: 

.ASCII 

’AT lAST INT 'NON-INT TERM:’ 

' 3 3m 

>4 W '■»*■ 

OO’ 

0S2S33 

051122 

OH 7 105 

CURN5G: 

.ASCII 

/CURRENTLY:/ 

* -‘■if 

.4 C A 

os is* 

3*7105 

0201 OH 

0H3117 

RENOMG: 

..ASCII 

/ENO OF REPORT/ 

-4 C >.fc 






.000 


*2ir 
.33 9 

*8*552* 

C5M- 3^ 


inno 

JNJTNG: 

JNASCI: 

.ASCII 

.ASCII 

/#*##TC1 1 3ECTAPE UNIT: - 
/XXXXXX/ 


“>i * r\ 

.2h 1 

Lvn^ J 
DC’HfeTfc” 

05H 1 33 

0$4*30 

* 4 * ^-^r% 

L’b* UJJ 

354130 

d!m?30 

DVRGMG: 

3VRG0T: 

f*U f*»A 9 # 

* k 4 

fSkr A r 'f 

* WcH# k 4 

/XXXX= / 
/XXXXXX/ 

02 

00’ 

OS4S02 

riapcpu 

0X123 

CNTSNG: 

.ASCII 

/BYTES’. R0= 

.03 

»24*» 


~ '4 

054 130 
054130 

9CNRD: 

§C*$: 


/XXXXXXXXXXXX WR= - 
/XXXXXXXXXXXX/ 

’ 'X*i c 

<4 ; .1* 

07%* 

oosnis 



CRLF: 

Iascii 

<015><012' 

■* "*®M if* 

CCN750* 

041411 

047115 

051 504 


.ASCII 

<011>/Cff€S: R0= 

07 

OOH77V 

IX 

05*130 

OSHiX 

CMOCRO: 

.ASCII 

/XXXXXX HR= / 

12*8 

009010’ 

054130 

0541X 

0S41X 

CfOCAR: 

.ASCII 

/XXXXXX MISC= / 


00502S’ 

IX 

C$4130 

0541X 

CMDCMS: 

.ASCII 

/XXXXXX/<015><012> 

< 01 1> /ERRORS: DEV= 

12S0 

005035* 

01 1 

051105 

047S22 


.ASCII 

12 S 1 

005054* 

0S41X 

054130 

0S41X 

CNTERR: 

.ASCI! 

/XXXXXX OATA= / 

1252 

0CS071 ’ 

IX 

05M IX 

0541X 

CNTDER: 

.ASCII 

/XXXXXX/< 015x012 > 
(Oil > /INTERRUPTS: 

jicbkj 

005101* 

Oil 

047111 

042524 


.ASCII 


005117* 

IX 

0541X 

0541X 

CNTINT: 

.ASCII 

/XXXXXX/ 

fear- 


005i25’ 



OiTXNs 



12 % 

005125’ 

124 

045511 

047505 

IOTO: 

f l, f 

• H3K# a 4 

’TIMEOUT ON I/C’ 

ip- 

iO<' 

005143* 

102 

C4S514 

051440 

BSCHER: 

.ASCII 

/ 8 LK SEARCH ERR 

1258 

1259 

005161’ 

005165’ 

102 

0541X 

045514 
054 IX 

020075 

054130 

INFOrtG: 

INFG0K: 

.ASCII 

.ASCII 

/BLfc- / 
/XXXXa.</ 

12 % 






.EVEN 


1251 

005174’ 

005204’ 

005212’ 

0052X* 

052123 

047115 

020124 

STfffIG: 

.ASCII 

/STMNT t / 

1262 

1253 

054130 

052123 

0S41X 

052101 

mm 

STfMJP*: 

TCEN5G: 

; ascii 

/XXXXXX/ 
/STATUS ERROR: 

125H 

000023 



COOFLO: 

.BUB 

n. 

1255 

12 % 

111 

111 

053116 

053116 

0S244Q 

04104G 

INVDVN: 

INV 8 KN: 


/INV UNIT *, 
' INV §LK » 



rwiNoec-ii-D' 

DTTOAB.Pii 

f 

vktu iim * %*# 

! p-4 

1275 

ixb 

AC* t 
1 D^Q 

*2 i 

188‘J 

1281 

12S2 

, «, c .j 

a *» u* w 
f >DU 

■<* *»,. M » 

' 3QC 

■A W W# 

.235 

a C O f 

- >6q 

■rib 4 tp» ■WNwl 

* 3h«jC!| 

:2X 

t 30 ? 

*282 
.253 
: >04 

? 3CSC 

:?% 

;p<5T 

i?98 

1299 

1300 

1301 
13C2 
1X3 
13CH 

1305 
-30b 
1X7 

1306 
1309 

* ~ * n 

A **»»* Am# 

? ■v 1 

&%j' id 

* l * l 

A «■# « W» 

1 3 m 

Ail «w 1 ~ 

* 3 i r 

A W A. *m 3 

131b 

1317 

1318 
1318 

1380 

1381 
*322 
1X3 

1324 

1325 
1325 
1327 


"Ch-B ’Oil 
FORMATS 


003 

TOSS DEVICE ROUTINE FOR NPG MACY11 27(732) 24-SEP-76 

FOR PROGRAM S DEVICE ROUTINE TASLE5 


14:00 PAGE 12 


000242 

300000 

00X02 


300010 

30 x 20 

oox-o 

3X100 


13XX 


01 XX 
004000 


XiOQO 

0004X 

000200 

0001X 

000040 

00X20 

0QQ013 

00X04 

30Q0G2 

X0X1 

000004 

XG006 

00X13 

XX1S 

X0020 

OOOC22 

000024 

G0C02S 

003C3C 


.SBTTL FORMATS FOR PROGRAM % DEVICE ROUTINE TABLES 
; PROGRAM TABLE FORMAT 

PTLGTHs 1S2. ’.PROGRAM TABLE X%> - NON M£M MGMNT VERSION O r MPj 

;CPTLGTH= 212. ; PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 

PFLGWO= 40. ; PROGRAM FLAG WORD - 1 WORD 


URSTOP= 2 

ERS70P= 4 
WT4I0T= 10 
CTPRIO= 20 
SETDED= 40 
OCPR£S= 100 
US§U8M= 200 
ACTIVE= 1000X 


1 = USER HAS STOPPED THIS PROGRAM 
1 = AN ERROR HAS STOPPED THJS PROGRAM 
1 = WAITING FOR 1 '0 TERMINATION 
I = CONSOLE OR PRINTER I/O IN PROGRESS 
1 = THIS PROG SET THE PRT XV DEDICATED FLAG 
1 s OBJ CODE IS RESENT 

i = THIS PROG USES THE UNIBUS MAP (.MEM MGMNT ONI 
1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION j 


POPSW= *2. 


: PROGRAM'S OPERATION SWITCHES 


WORD 


STONERS 100000 
CYCPRG= 400X 
PROfCRs 20X0 
3IT12= 100X 

BITlls 40X 
CYCDVLs 2X0 
GTNXTD= 1X0 
DOERCKs 4X 
SPOPERr 2X 
BIT5= 100 
XIOTs 40 
AUT0RP= X 
AURPEP= 10 
HSKPEP= 4 
PFBBCV= 2 

NOCOMPs 1 


1 S STOP PROG EXECUTION UPON ERROR 
1 CYCLE PROGRAM (ON CURRENT DEVICE; 

1 s DO NOT PRINT ON ERROR 
0 = N0 T USED 

0 = NOT USED 

1 = CYCLE THE DEVICE LIST 

1 s CYCLE ON $$€ XVI CE UPON ERROR 
1 = DON’T DO ERROR CHECKING 
1 = DEVICE SPECIAL OPERATION 

0 = NOT USED 

1 = DO NOT PERFORM I/O TIMEOUT 

i = X NOT AUTOMATICALLY OISPlAY COUNTS 
1 = AUTO Dir^LAY COUNTS AT END OF FINAL PASS 
1 = HOUSEKEEP COUNTS ONLY AT RUN COMMAND 
I s PRINT FIRST BAD BYTE ONLY ON VERIFY 
I s X NOT PRINT PROG COMPLETED MSG 


;nl’ 


PFWAOR: 44. 

PASCINs *b. 
PNAMEs #>8. 
PRDIOAs 414. 
PWRIOAs 4lb. 
PSRCSTr ♦IB. 
POBJSTs 420. 
PLNGTH= 422. 
PTOCNTs *24. 


PROGRAM FlAGWORO AXRESS - 1 WORD 
; PROGRAM’S NUMBER IN ASCII - 1 WORD 
; PROGRAM'S NAME IN ASCII - 5 BYTES 
: AXRESS OF REX I/O AREA - 1 WORD 
jADORESS Of WRITE I/O AREA - 1 WORD 
; SOURCE STATEMENTS START ADORESS - 1 WORD 
; OBJECT COX START ADDRESS - 1 WORD 
: PROG AREA LENGTH (OBJ END MINUS PROG 'X S T ARTi 
: I 0 TIMEOUT COUN T - 1 WORD 



MAINDEC-ii-DT T 

DTTCAB.P11 

1329 

1333 

1331 

1333 

1333 

133s 

1335 

1335 

133” 

.333 
1333 
' ">4n 

dfc *** ' 

i! :»4 1 
.* «*,»< * 

1333 

■ 


.>5 

13% 

13*” 

1338 

13h8 

1 < x k n 
1351 
1358 
1353 
125* 
1355 
13% 

• 257 
1358 
1353 

1350 

1351 

" X? 

1353 

1354 

1355 
1355 

1357 

1358 
1358 

1370 

1371 

1372 

1373 

1374 

1375 
1375 

1377 

1378 
1378 

1380 

1381 
1383 


E03 


CA-B TCI MU55 DEVICE ROUTINE FOR MPG MACYli 27(732) 24-SEP-78 14:00 PAGE 12-1 

FORMATS FOR PROGRAM S DEVICE ROUTITC TABLES 


000032 

000034 


PMOLCD= 425. 
PDPNTR= 488. 


DEV ROUT MODEL 8 CODE - 1 WORD 


Q0003S 

PCURDV= 429 . 

000038 

PDNUMS= +30. 

000055 

PTEMO= 4%. 

000050 

PTEM1= +48. 

000052 

PTEM2= +50. 

000054 

PTEM3= +52. 

000055 

PTEM4= +54. 

000070 

PTEMS= +55. 

000072 

PTEM5= +58. 

000074 

PT£M7= +50. 

000078 

PTEM8= +52. 

000100 

PTEM8= +64. 

000102 

PT£M10= *55. 

000104 

PTEM11= +68. 

000105 

PT£M12= +70. 

0001 10 

PTEM13= +72. 

000112 

PTEM14z +74. 

000114 

PTEM15= +75. 

000115 

PNBR= 

478. 

000120 

PSRC= 

+80. 

000122 

PDST= 

+82. 

000124 

PSTKCT= +84. 

000125 

PSTKSVr +88. 

000222 

PSVPEG= +148. 

000235 

PUSRPCs +158. 


CURRENT DEVICE NUM8ER POINTER - 1 BYTE 
CURRENT DEVICE 8 - 1 8YTE 


DEVICE NUMBERS - 15 3YTE5 


USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 


1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 


1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

• 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

* 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

i 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 


1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

* 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

* 

1 

WORD 

USER 

PROGRAM 

TEMPORARY 

STORAGE 

- 

1 

WORD 


NUMBER OF BYTES TO TRANSFER ON MOVE iNBR) 
DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 
DATA DESTINATION ADDRESS ON MOVE COST ) - 1 
8 OF WORDS (X 2) SAVED OFF STACK - 1 WORD 
STACK WORDS STORAGE AREA - 30 WORDS 
USER’S RC THRU R5 REGISTERS STORAGE AREA - 
USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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1398 

1399 
1390 



; FOLLOWING ENTRIES (PRDIOX THRU PUBMAP) ARE ONLY IN MEN MGMNT VERSION 
; (PROIOXr +lbO. ; 18/22 BIT ABSOLUTE AOORESS OF READ I'O AREA - 2 WORDS) 
;(PRDIOV= +ib4. ; 18 BIT VIRTUAL AOORESS OF READ I/O AREA - 2 WORDS) 

;(PWRIOX= + ib8. ; 18/22 BIT ABSOLUTE AOORESS OF WRITE I/O AREA - 2 WORDS; 
: (PWRIOV= +172. ; 18 BIT VIRTUAL ADDRESS OF WRITE I/O AREA - 2 WORDS) 

: ; P'JPARS= + 17B. ; STORAGE AREA FOR USER’S PAR’S 0 THRU 7 - 8 WORDS) 

; CPUPDRS= +192. ; STORAGE AREA FOR USER’S PDR’S 0 THRU 7-8 WORDS) 

; t PU8MAP= +208. ; 1ST UNIBUS MAP REG » AND * OF REGS USED - 1 WORD) 

; END OF MEM MGMNT ONLY ENTRIES 

PT5!ZE= +lbO. ; PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 

;(PTSIZE= +210. ; PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION; 

PTEND= *Ib2. ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 

;)PTEND= ♦212. ;END OF PROGRAM TABlE - MEM MGMNT VERSION' 


Ul 



ma:ndec-:i- 

DTTCAB.Pli 


■DTTCA-B TCii TU5& DEVICE ROUTINE FOR MPG 

FORMATS FOR PROGRAM S DEVICE ROUTINE TABLE 
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1410 

IjjM 

4 f A, 

1410 


; DEV] 

1413 

QC0115 

DRTLTH= 78. 

1414 


t 

1415 

141b 

14*- 

>13 

>19 

000000 

6evrsz= +o. 

000002 

DEVFWD= +2. 

>20 

» t 

000004 

DEVIW1= +4. 

' 4p? 

*«$► Awm 

* UD'-'I 

000005 

D£VIW2= 4fe. 

>24 

>25 

000010 

DEV I W3= +8. 

>25 

>27 

000012 

DEVIW4= 410. 

>29 

>29 

000014 

D£VIW5= 412. 

>30 

^ 4 *1) ] 

* 

X0015 

D£VIW5= 414. 

>32 

>33 

000020 

DEVIW7= 416. 

* **34 

C00022 

DEVIW8= 418. 

i u 3fe 

>37 

000024 

DEVDRA= 420. 

>38 

>39 

000025 

DEVIVA= 422. 

1 

* J 

000030 

DEVRPS= 424. 

>43 

000032 

DEVUPS= 426. 

T 

> u 5 

300034 

DHKPAO= 428. 

>46 

>47 

000035 

OERPAO= 430. 

>46 

>49 

000040 

DKILA0= 432. 

>5C 

>51 

000042 

DECTAD= 434. 

>52 

>53 

000044 

DTOEAD= ♦35. 

>54 

>55 

00C045 

DEVI0B= 436. 

>Sfc 

>57 

000050 

DEVDER= 440. 

>58 

>59 

000052 

DVUPRT= 442. 

>50 

>51 

000054 

DVCPRT= 444. 

>5= 

>53 

0CC055 

DEVBTA= 446. 

>64 

dodge: 

DVBTDA= 448. 


(SIZE) 

:err) 


14:00 PAGE 12-3 

DEVICE ROUTINE TABLE 

; DEVICE ROUTINE TABLE LENGTH 

; DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
; DEVICE ROUTINE FLAGWORD - 1 WORD 
; DEVICE INTERFACE WORD *1-1 WORD 

; DEVICE INTERFACE WORD #2-1 WORD 

; DEVICE INTERFACE WORD i 3 - 1 WORD 

; DEVICE INTERFACE WORD i 4 - 1 WORD 

; DEVICE INTERFACE WORD » 5 - i WORD 

; DEVICE INTERFACE WORD I 5 - 1 WORD 

; DEVICE INTERFACE WORD « 7 - 1 WORD 

; DEVICE INTERFACE WORD i 8 - 1 WORD 

; DEVICE REGISTERS ADDRESS - 1 WORD 
; DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 
; DEV ICE RE AO PROCESSOR STATUS WORD (BUS REQ) - 
; DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 
; DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WGR 
; DEVICE ROUT REPORT ROUT REL ENTRY ADR - i WORD 
; DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
; DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 
; DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
; DEVICE I/O BUSY BRANCH AODRESS (CIOBSY) - 1 WORD 
; DEVICE ERROR BRANCH ADORESS (CUPGER) - i WORD 
;USER MODE PRINT BRANCH AODRESS (ULIST) - 1 WORD 
;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
; CONVERT BINARY TO ASCII BR ADR (BINASCi - 1 WORD 
; CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ ) - 1 


=E3 0385 


WORD 





C C ^ H^QC. 
-wL>» UJGD 
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iHSb 

1457 

0000B2 

DVPDTA= +50. 

1483 

1459 

0000B4 

DVSFWD= +52. 

14 70 

1*4 "'I 

1472 

1473 

000055 

DVSVEC= +54. 

000070 

DVCVEC= +55. 

14“*4 

000072 

DVTVEC= +58. 

: 4"*b 

? 

000074 

DVRINTr +B0. 

it. ■ l! " * 

i h r 9 

000078 

DVGETB= +B2. 

Use 

14S1 

000100 

DVPUTB= +54. 

1482 

1433 

000102 

DEVSTP= +55. 

1434 

>35 

000104 

DEVETPr +58. 

>85 

1497 

0001 05 

DVPT£P= +70. 

1488 

1489 

0001 10 

DVVTEP= +72. 

1490 

1491 

000112 

DVCTEPs +74. 

1492 

1493 

000114 

DVIWSP= +75. 

1494 

1495 
14% 

00011b 

DRTEND= +73. 

1497 

000001 

.END 


; CONVERT PACKED DECIMAL TO ASCII BR ADR (OECASC) - 1 WORD 
; MPG SYSTEM FLAGWORO ADDRESS (CSYSFU) - 1 WORD 
; SET INTERRUPT VECTOR BR ADR (SETVEC) - 1 WORD 
; CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 
; TEST INTERRUPT VECTOR BR AOR CTSTVEC) - 1 WORD 
; RETURN FROM INTERRUPT BR ADR (RTNINT ) - I WORD 
;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 
; PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 
; DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
; DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 
;PACK TABLE EXTEN. REL POINTER - 1 WORD 
; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
; COMPILER TBL EXTEN. REL POINTER - 1 WORD 
; DEVICE INTERFACE WORD SYMBOL TBL REl POINTER - 1 WORD 
;END OF DEVICE ROUTINE TABLE 
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14:00 


5EG 0387 


NON I HI 
NDwAIT 
OCPRES 
PASCIN 
PC 

PCURDV 

PONUMS 

POPNTR 

POST 

PF 880V 

PFLGI40 

PFWADR 

PLNGTH 

PNDLCD 

PNAflE 

PNBR 

PNflflSG 

P08JST 

POPSW 

PRO I OR 

PRINT 

PRQCTfl 

PROGNH 

?RON£R= 

PRTEX 

PRTIWD 


QG222SR 

QQ14BSR 
nnn i nn 


7.000007 

GQQ035 

000038 

000034 

m 

000000 

0Q0004 

000028 

000032 

000010 


PSRCST 

PSTk’cT 

PSTKSV 

PSVREG= 

PSUD 

PTENQ : 

PTEfil : 

PTEfUO= 

PTEM11: 

PT£M12= 


PTEfil 3= 

PTEfllH 

PTEM15 

PTEN2 

PTEM3 

PTEM4 

PTENS 

PTEM8 

PTEM7 

PTEM8 

PTEM8 

PTENO 

PTLGTH 

PTOCNT 

PTSIZE 

PUSRPC 


UUUiib 

004548R 

000024 

000002 

000018 

004432R 

003470R 

0045SOR 

020000 

004544R 

0044QSR 

000120 

000022 

000124 

000128 

000222 


uuuuwur 

000058 
000080 
000102 
000104 
000108 
0001 10 
000112 
000114 
000082 
000084 
000088 
000070 
000072 
000074 
000078 
000100 
000242 
000242 
000030 
000240 
000238 


PUT8YT 

PWRIOA- 

RDAtL 

RDCNT 

ROCOM 

RDNUN 

READ 

RENOrtG 

REPORT 

R^PTBL 

RESREG 

REV 

REVCNT 
RINTEX 
RINTV 
RPTBhS 
RPTEND 
RPTLP 
RTNINT 
RQ = 

R1 = 

R2 = 

R3 = 

R4 =: 

R5 r 

savreg" 

SEARCH 
5ETDED= 
SET VEC 
SIZE 
SP s' 

SPOPER= 


0Q0103R 
030020 
001 81 DR 


301 528 R 
00157BR 


STMNUfl 

STOf€R= 

STOP 

STPAlL 

STSTAT 

5UPTA0 

TCEfISG 

TCINT 

TOECNT 

TOUTER 

TOUTEX 

TSTVEC 

TVECT 

TVECTX 

UlIST 

UNASCI 

UN I TNG 

URSTOP= 

USEU5f1= 


001518R 
0048 18R 

ooigooR 

001274R 
004140R 
001508R 
GQ0742R 
004072R 
004050R 
001230R 
001254R 
001212R 
C00074R 
7.00000Q 
7000001 
7000002 
7000003 
7000004 
7000005 
004124R 
002732R 
000040 
000088R 
000020R 
7000008 
000200 
Q05174R 
C05204R 
100000 
001848R 
001870R 
004202R 
004158R 
00521 2R 
Q02538R 
000722R 
001320R 
001418R 
Q00072R 
004074R 
004122R 
0007S2R 
0C4b ?P 

0C u G H 

000002 

000200 

001448R 
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MAINDEC-i l-DTTCA-8 TC11 TUBE DEVICE ROu.INE FOR MPG 
DTTCAB.P11 SYMBOL TABLE 

WRALL 0C1B22R 002 WACOM OOiSSbR 002 WRTfl 001B34R 

. A8S. 000000 000 

000000 001 

TCI I 0Q527B 002 


002 WT4I0T= 000010 


ERRORS DETECTED: 0 

DEFAULT GlOBAlS GENERATED: 0 

* . DTTCA8/NL : TOC/DOC=DTTCAB . Pi 1 
RON-TIME: 4 9 .9 SECONDS 
RON-TIME RATIU: 171/14=11.5 
CORE USED: 5 K (9 PAGES) 

DOCUMENT PAGES: 35 


= 0GS275R 0G2 
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umiiniii 


irmnn 


,11111112222222222333:2 
>789Q1234Sfc? '°12 *f 

Jiiiiiiiiiii .line 

. 111111111 2222222 ^ 22333 1 | 
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